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BRYAN’S ARCADE 


Quasimodo 

This month | recieved a new game called Quasimodo. Quasimodo 
is a fantastic new game from Synapse. It is written by a fellow 
teenager named Jon Atack who lives here in Eugene, it will be 
released soon by Synapse Software. 

In the game you are Quasimodo. You have been falsely accused of 
Stealing the king’s royal jewels. Of course you didn’t do it. Your 
mission is to rescue the royal jewels from the crooks who took them 
and bring them back to the king and queen. 

There are three levels to Quasimodo. 

Level 1 

Level 1 is extremely easy. You are automatically transported to the 
bottom of the tower. Below you are archers climbing up ladders trying 
to get to the top of the ladders and shooting arrows up at you. You 
have three piles of rocks you can protect yourself with. You can pick 
up a rock and throw it down at the archers and they will fall back down 
the ladders. After you kill all of the archers a ladder leading to the first 
royal jewel will appear. Climb up and get the jewel and climb back 
down and go through the teleporting door. 

Level 2 

On level 2 you have to go through the archers again and then you 
go back to where the first jewel was and you will see some bells with 
ropes on them. If you jump on the ropes and move the joystick back 
and forth little Quasimodo will start swinging on the bells. Once the 
bell starts ringing you have enough momentum to jump to the next 


bell. To get the jewel on level 2 you have to go bell by bell and ladder - 


by ladder until you get the jewel. All the time you are swinging, 
jumping and climbing you have to dodge the bats which constantly try 
to bite you! After you get the second jewel you have to climb back 
down to the bottom of the tower and through the teleporting door once 
again. 

Level 3 

On level 3 you do exactly the same thing you did on Level 2 until 
you get to where the second royal jewel was. Once you get there 
another teleporting door will appear. Go inside this door and you will 
be transported to the top of the tower. At the top of the tower there are 
Soldiers in little guard booths shooting arrows at you. You are also 
armed with a bow and an endless supply of arrows so you can also 
shoot at the soldiers and kill them. There are also guardians of the 
main royal jewel at the top of the tower. The guardians throw things 
down at you and if an arrow or a weird thing hits you, you will instantly 
die. 

The sound and graphics are very good like all of the Synapse 
games. | definitely recommend this game for your friend, kid or any 
avid video game player. 

That's all for the Quasimodo review. Now | will make a list and tell 
you what | think are good games to get for Christmas!! 

Quasimodo by Synapse 
Pole Position by Atari 
Pinball Construction Set by Bill Budge and Electronic Arts 
Arcade Machine by Broderbund Software 
Star League Baseball by Gamestar 
Jumpman or Jumpman Junior by Epyx 
Gateway to Apshai by Epyx 
PooYan by Data-Soft Inc. 
Blue Max by Synapse Software 
Zepplin by Synapse Software 

That's all for this month! Happy Holidays! 


ACE 


| want to extend season's greetings to ACE members using a 14 
line BASIC program. If you like brain teasers, don't look at the listing, 
and try to write the program yourself using the following 
specifications. ; 

Using only Atari BASIC, write a program putting small and large 
text on the screen in GR.0 and border the entire screen with cursor 
characters. Do not modify the display list and do not use any machine 
language, but complete the display in less than half of one second. 

If you think this is impossible, type in my little BASIC demo. Who 
says Atari BASIC is slow? 

It’s been quite a while since I’ve submitted anything to ACE and | 
apologize. I’ve been busy writing for ANTIC, writing The Atari 
Reference Encyclopedia for The BOOK COMPANY, completing 
CHATTERBEE for DON’T ASK SOFTWARE, and ROBIN’S 
HALLOWEEN for PDI. Mike Dunn will be receiving review copies of 
the book and software in November. 

Happy Holidays to you all, 


— Bryan Dunn 


—Jerry White 


BUMPAS REVIEWS 


This is the time of year we at ACE make recommendations of the 
“10 Best” software titles for the gift-giving season. I’ve been asked to 
make the list this year because of all the reviewing I’ve been doing (| 
just wrote a book of 200 reviews of Atari software for Consumer 
Guide). 

The 10 best games on my list include: 

Excalibur by Chris Crawford for $30 from APX. This game recreates 
an entire Arthurian environment for the player. 

Eastern Front (cartridge) by Chris Crawford for $45 from Atari. 
World War 2 on your Atari. 

M.U.L.E. for $40 from Electronic Arts. For 1-4 players trying to 
Survive on a mining colony in a remote area of the galaxy. 

Combat Leader for $40 from Strategic Simulations. Command your 
own platoon or company in a tactical encounter with the Atari. 

Star League Baseball for $32 from Gamestar. Miss your baseball in 
the winter-time? This has the feel of the real thing, and is an excellent 
game to boot! 

Blue Max for $40 from Synapse. Fly your WWI biplane through 
enemy defenses to bomb a city. Almost a flight simulator. 

Chess for $70 from Odesta. The easiest to use, most flexible and 
most challenging Chess game for a home computer I’ve seen. 

Murder on the Zinderneuf for $40 from Electronic Arts. A 
joystick/graphic detective game giving you 40 minutes to solve one of 
128 crimes of murder. 

Pole Position for $45 from Atari. The popular arcade formula 
driving game-simulator brought home. 

Lode Runner $35 from Broderbund. The latest incarnation of the 
running, jumping, climbing, digging game with over 150 screens, 
including user-defined ones. 

For non-game software my list of ten includes: 

AtariWriter for $99 from Atari. The best word processor for the 
Atari which is as good as some of the best professional word 
processors in business use. 

FileManager 800+ for $99 from Synapse. A full-functioned 
database manager which is as easy to use as it is powerful. 

JonesTerm 3.6, public domain from your user group. Let your Atari 
talk to other computers over the phone lines with a modem. 

SCOPY, $15 from ACE. You will use this sector copier more than 
any other utility as you back up and manage your collection of disks. 

Synassembler, $49 from Synapse. An easy to use and powerful 
tool for creating machine language programs. 

Ultra Dissassembler, $49 from Adventure International. Take any 
machine language file and disassemble it with standard Atari labels. 
Great for studying advanced programming techniques. 

Action!, $99 from OSS. A new language on a bank switched 
cartridge using only 8K at a time but has 24K on the cartridge. This 
superfast, structured language is really something. 

Basic XL, $99 from OSS. An expanded Basic compatible with Atari 
Basic, but adding many new features and commands, including most 
features used in Microsoft Basic. The best of both worlds. 

ARMUDIC BBS, $99 from Armudic. Operate your own message and 
information center, or just use it for unattended communication from a 
remote location with your computer at home. 

MYDOS by Wordmark Systems and available from SWP. This new 
DOS allows you to use double-sided, 80 track disks. bus less 
memory than Atari DOS, but works with 8" drives or whatever drive 
your ATR 8000 uses, or any disk drive made for the Atari. 

Note: Zaxxon, by Datasoft, has received Eastman Publishing's 
Golden Disk Award for the "best personal computer game." This 
award is based upon sales reported from software retailers. 

Broderbund has discovered some “incompatibility during play of 


‘Operation Whirlwind’ with certain boards. The problem has been 


corrected." | had been experiencing a lock-up during play and thought 

it was my hardware problem. I’m sure Broderbund will make the 

correction for you if you use this program and have a Mosaic or other 
board which is incompatible with the earlier version of their game. 

— Jim Bumpas 

co-editor 


News and Reviews 


Mike Dunn, Co-Editor 


It is the Holiday season again, so we at ACE wish you all good luck 
and a happy new year. Because of increasing expenses, we need to 
increase our dues to $12 a year Starting Jan 1 ($20 a year overseas Air. 
If your renewal is postmarked before, send the current rate. When the 
postal rate increase takes effect, we will have to boost our 
subscription rates again. 

The new version of Frank Hubband’s ARMUDIC BBS will support 
1200 baud transmission. It will also allow the use of 64K SO we can 
have many more messages. The bulletin board is in constant use, and 
some consideration of using a password system for members and 
limiting access to others has been Suggested -- see Larry Gold’s 
article. Larry, besides being SYSOP and Vice-Pres of ACE, is now 
helping out as the “Lay-Out Editor.” 

Remember this is the Dec/Jan issue, so the next issue will be in 
FEB. 


New in the Program Library 

Our new “Best of ACE #7” covering programs from Oct ot Dec is 
now ready, as, for an Xmas special, this and all "Best of...” series are 
available for $10 each or $15 for a double sided disk, rather then 
$15/$20, for orders postmarked before Jan 15. Also new is a new 
PILOT #2 Disk ($10), which includes a very elaborate Geometry 
program much too long to be in the newsletter and includes extensive 
directions on the file. This great program was sent to us by Abdulhadi 
Yassin of San Francisco in appreciation for all the public domain 
PILOT programs of Ruth Ellsworth. He apparently learned to program 
by using her programs as tutorials. Thank you Abdulhadi and keep 
them coming. 

In this issue is a game called "Bugs"published both by us and by 
Page 6, a UK Atari magazine (18, Underwood Close, Parkside, Stafford) 
for the Chirstmas issue. It is a very fine game, but difficult. From our 
very own, prolific Stan Ockers is “Atrain,” a wonderful little 
educational game for the beginning speller —1 love it!! It is really cute. 

Also starting in this issue is a new series on the people behind 
ACE. Because he suggested it, the first autobiography is by Ron Ness, 
our program exchange librarian. Ron and his son Aaron have been with 
ACE almost from the very first; they have always been available to help 
out on everything, like collating the newsletter, licking stamps, or 
whatever needs to be done. Without members like the Ness', the 
newsletter would not ever get out —thanks for everything, Ron and 
Aaron. 

For news, | suppose you have all heard TI has thrown in the towel -- 
this should be a big advantage for the Atari computer. | also hear the 
new 800XL is very nice —! have not seen one yet, but all | hear about it 
is good. | also hear from various sources that the more advanced 
Atari's, like the 1400 series and including the 16 bit one, have been 
scrapped for sure. After the loss of all that money, Atari will play it 
safe for a while. The IBM PCjr is now out and it appears to be a high 
priced dud. With a "chicklet" keyboard and an OS that is specially 
designed so it will not run much of the outstanding business IBM PC 
Software, it is very expensive for what you get. The Atari seems to bea 
better bet. 

A new magazine for the Atari home computer and the Atari VCS is 
now out and available. Hi-Res is $20 a year for a charter subscription 
(933 Lee Rd., Suite 325, Orlando, FL 32810. The first issue features that 
wonderful Doonesbury script advertaizing the Atari peace package. | 
have to confess | have been a Doonsberry fan since the strip was 
started and was depressed for a week when Mr. Trudeau went on his 2 
year leave. 

MovieMaker (Reston, 11480 Sunset Hills Rd., Reston, VA 22090, $60) 

This fantastic new program has been a big hit with my family, 
especially those who have no interest in computers. It allows you to 
make your own computer generated animated cartoons and movies 
and it's so easy anyone can do it. An 87 page booklet takes you step 
by step through the process. There are files of preprogrammed shapes 
to get you started; but you can easily make your own. To begin your 
cartoon, you go to the compose utility, and pick your shape. As an 
example, there is a shape file of dogs in various positions of running. 
With your joystick, you pick the various shapes of dogs in sequence, 
then preview the action whenever you want. You can program the 
Sequences with as many as 16 shapes, change colors, speed, etc. 
When you have your shapes and Sequences as you want them, you go 
to the Record utility, and decide the frame rate, number of frames per 
shape, jumps per joystick, and loops of each sequence. You then use 
your joystick to program the action around the screen and record the 
whole process. When you are finished and all is the way you like, you 
can smooth the whole thing so it looks like a real motion picture!! And 
all of the above only takes a few minutes to do! 


After you have made a few simple movies, you can start to become 
a real director. Using the compose utility, you can draw your own 
shapes and save them to a file. Basic drawing commands allow you 
two levels of zoom magnification for detailed work. For ease of use, 
there are duplicating commands and mirror image commands, 
although we couldn't get the mirror command to work. You can easily 
fill with colors of your choice. There is even a command to make your 
joystick a left-handed one for left-handers! There is also a utility for 
making various backgrounds easily. 

Other features include the ability to edit your "finished" movie, go 
to a specific frame and rewind, mark a frame to stop, freezing a 
sequence, zooming and expanding shapes to stimulate an object 
going towards or away from you. Sounds can be added as well as 
titles. The MovieMaker allows 4 colors on a screen at a time, 9 
sequences at one time, 16 frames in a sequence, 64 shapes on a shape 
page, up to 1/4 of a screen size for an outline, 6 actors and 300 frames 
per animation. 

After you have made your movie, you can give it to friends on an 
autoboot playback disk. You cannot add it to your own programs as jt 
stands now, but | bet one of our members will figure out a way and 
write an artilce for ACE. A truly outstanding product, highly 
recommended for anyone interested in the art of animation or learning 
it. 

Other review copies sent to us for review by Reston this month did 
not arrive in time for a full review —they will be in the next issue, but 
here is a short report: 

Space Knights by David Heller and Robert Kurcina. David Heller is 
the author or "Free Software for the Atari," the book that has helped 
us get many new members and almost overloaded our bulletin board. 
It is a 156 page science fiction action novel with a number of 
interesting games on disk involving the reader in the action of the 
main characters. Some of the games are action/arcade, but several are 
thinking games requiring you to solve problems. Looks very nice. 

Adventures with the Atari by Jack Hardy ($15, 356 pages.) For all 
you adventure fans, this book teachs you how to make your own 
graphic adventure games and includes six adventure game listings to 
type in and study as well as play. The truly unique part is all the 
listings and instuctions are written in Atari BASIC, Atari MicroSoft 
BASIC and Atari PILOT!! What a gold mine for learning to translate. 
This book will be reviewed extensively next issue by Ruth Ellsworth, 
who has written in ACE an article on programming Adventure games 
with PILOT. 

Survival on Planet X by Michael Orkin and Ed Bogas ($13, 151 
pages). This is an adventure story with many short programs written in 
Atari BASIC; it teaches the basics of programming to beginners in a 
very painless way. Looks like a good introduction for a early teenager 
to learn how to use and program with the BASIC commands, including 
some fairly advanced graphics. A very nice book, interesting to read 
and you learn in spite of yourself! 

Rainy Day Activities for the Atari by Nancy Mayer ($13, 156 pages). 
The forward to this book says you can turn your Atari “into a toy store 
that will provide fifty games of music, art, letters, numbers, and 
nonsense for young children." 


Hardware Items of the Year 

1. ATR 8000 with CP/M (SWP, 2500 Randol Mill Road-125, Arlington, 
TX 76011). This combination disk drive interface, printer buffer and 
interface and RS-232 port is a very low priced accessory for your Atari 
that opens new worlds. The basic unit allows you to use any "generic" 
disk drives and gives you a nice printer buffer. More advanced units 
allow you to use CP/M and there is even a 8088 board. It comes with 
programs allowing you to read and run almost any CP/M program from 
any CP/M computer, with all that wonderful business software and 
public domain programs. 

2. Austin Franklin 80 column board. (Austin Franklin Assoc., 43 
Grove St, Ayer, MA 01432) This 80 column board works very nicely, can 
be used with a RGB monitor (not for Atari Games), and has a cartridge 
to use with the ATR 8000. If you use CP/M, 80 columns are almost a 
must, and this is a nice one. 

3. Mannesmann Taly Spirit 80 Printer. This new printer is an Epson 
work-alike with a big difference — square dots rather than round dots. 
It also has the best paper handling I’ve seen, with a very easy to use 
tractor feed as well as friction feed. The listings last month in the 
newsletter were done by this printer. This month, they will be the 
Epson-80. My Spirit broke— although you can easily back up the 
paper, if you pull the paper out the back, you can break the platen, and 
| did. The instruction manual doesn't tell you this, but the company did 
when | told them the problem! Otherwise, a very nice printer with very 
good print, and for only $399 retail, a good buy. 

4. Brother 50 Daisy Wheel Typewriter with Brother IF-50 Computer 
interface. One of several new typewriter/computer printers factory 
designed for double duty. This is a nice inexpensive typewriter which 
works very well as a printer. 


BUGS 


(This game is appearing simultaneously in Page 6, a user group ‘zine in 
England). 


Bugs is a simple game which | hope will show that some good 
games can be written for your Atari even if you don’t understand some 
of the the more complex programming routines. No player-missile 
graphics, no VBI routines, all of the action is achieved by POKEs to 
the screen in Antic mode 4. By level 9 the game gets to be quite fast. 

You play the part of a ladybug who has to harvest a whole host of 
aphids by collecting them into one of four'"nests"on each side of the 
screen. Dotted around the place are several mushroom looking things 
which, if you touch them, hatch out into more aphids. These are 
poisonous to a degree and will sap your strength but strength can be 
made up by killing the aphids by pushing them right into the nests. 
There are some aphids which are deadly (the orange ones) and 
touching these means instant death. If you are not quick in collecting 
the aphids, these will multiply. If your strength falls to zero, you die 
and you must have a certain strength ratio to progress to the next 
level, otherwise you must play the level again. 

Enjoy the harvest but watch out for those killer bugs. 

—Les Ellingham 


STAN OCKERS 
ALPHABET TRAIN 


String operations on the Atari can be used to move data around in 
memory at machine level speeds. l've used this method for movement 
in a game called ‘Alphabet Train’ which is designed to train 
preschoolers in the positional aspect of letters in the alphabet. 

The train and truck in the program consist of strings of characters. 
Parts of these strings are mapped onto the screen area. Motion is 
produced by changing the portion of the string being mapped. 
Movement of the boat in last month’s program ‘Cannibals’ was done 
by using this method. 

Another string is set aside as the player missile area. Vertical 
movement of players representing the grabber, pushers and selected 
letter is also done by using string operations. 

The key to using these techniques is a table holding information 
about all variables. It is called the Variable Value Table and is built up 
as information is entered from the keyboard. Each time a new variable 
is encountered, eight bytes are set aside to hold the relavent 
information. For strings, this includes where to find the string, how 
long it is, and how much space was set aside when it was 
dimensioned. 

The second and third of the eight bytes give the string location in 
the standard low byte, high byte order. This is not an absolute address, 
however, but is an offset from a particular spot in memory; The spot 
being the beginning of the area holding the string characters (STARP). 

Since we want to ‘fool’ the Atari into thinking the string is located 
somewhere else, all that is necessary is to have the string 
dimensioned, (you can give it a DIM of 1). This will create the eight 
bytes. We must then know where the eight bytes are located so we 
can change them at will. 

Locations 134 and 135 (decimal) hold a pointer to the variable value 
table (VVTP). If we arrange things so the first variables entered are 
ones upon which we want to operate, then we know the appropriate 
locations. 

The first line entered (exclusive of REMs) should be a DIM 
statement with the string variables in the order we want them to 
appear in the table. Remember it is the order they are entered from the 
keyboard; so if we later decide we want another string and modify this 
first line, we must ‘LIST’ to disk or cassette and ‘ENTER’ the program 
again so the variable value table will be rebuilt just as if we were 
entering it from the keyboard for the first time. 

A$ is the first variable found in the ‘Train’ program and is changed 
to point at the previously allocated Player Missile area. The offset is 
initially zero (it is at the start of the variable area), but is changed to the 
difference between the player part of the PM area and this position by 
poking numbers into the third and forth bytes of the eight representing 
variable A$ (VVTP + 2 & VVTP + 3). The size (5th and 6th) and dimesion 
(7th and 8th) are also changed to 512 bytes, the size of the player 
portion of the PM area, (see lines 350 - 390). 

It should be possible to use the variable value table changing 
technique to move the character set into RAM but when | tried, it got 
all messed up so! just wrote a simple machine level user call to move 
one page. Since only 64 characters are available in Gr. 18 and require 
only 512 bytes, | used the unused portion at the beginning of the PM 
area and chose to have graphic symbols and capital letters. 


PM images are assigned to strings with zero bytes at the ends so 
when vertical movement occurs, the previously drawn image will be 
wiped out. When a letter is selected, the grabber is lowered (Player #0), 
the letter blanked out from the train string and reconstructed as Player 
#1. It continues as player #1 until finally dropped on the truck where it 
is erased and entered into the proper truck string. 

Vertical movement seems quite smooth although you might notice 
a slight jitter between the grabber and letter caused by successive 
string movements from Basic. 

B$ is the second variable in the table and is changed in size to 261 
bytes, (the size of the graphics 18 screen), and mapped over the screen 
area. Movement of images in this area is simply a matter of string 
manipulations. You are of course limited to multiples of a character 
size for movement but it doesn’t seem too unrealistic in the case of 
the train and truck. 

It should be pointed out the characters assigned to strings are not 
the characters appearing on the screen unless they are put on using 
PRINT statements. This is because the ATASCII order of characters is 
not the same as the order they appear in ROM. In a PRINT statement, a 
number is assigned based on the ATASCII order, (the one you get with 
ASC), and a conversion is made to reflect the order the character 
appears in ROM. Since we are mapping directly onto the screen, no 
conversion is made and allowance must be made when we choose 
characters. 

| anticipated problems with jerkyness because Basic is so slow. | 
especially worried about the truck and train because they take three 
seperate string operations for each motion. | think you will agree the 
worry was in vain and that movement using strings is a valuable 
technique which can be used in place of machine routines. 


PILOT RUTH 


MORE STRINGS 
by Ruth Ellsworth 


In the hope of untangling beginners who find strings one of the 
most confusing concepts in programming, this is the first of two 
articles about using strings in PILOT. This article will give examples of 
the simple use of string variables, those cases in which strings may be 
thought of as slots in a toy shelf or files in cabinet depending upon the 
age of the user. Those interested in a more condensed review of the 
string function of PILOT may read my article in the December/January 
1983 issue of the ACE Newsletter. 

In ATARI PILOT any group of characters used as a unit is viewed 
as a string. One could think of string variables as slots built into a toy 
shelf. Each slot has a specific name, for example $ONE puts that label 
on a slot. Anything chosen could be placed in that particular slot, to 
find the thing in the slot titled $ONE, one looks into $ONE. In PILOT it 
is possible to actually look into all the string variable slots and see 
what they contain by using the DUMP command. 

An activity our family enjoyed when we were new to strings was to 
write a simple program allowing the children to fill string variables, 
then to DUMP them. Such a program was more fun if the children took 
turns so they did not see the values given to each variable until the 
program was dumped: 


Ti Type a holiday 
A: SHOLIDAY 

Ti Type an animal 
AS SARIMAL 


Once we had begun to understand what a string variable was and 
how it worked, it was easy to begin to write programs using them. Mad 
Libs and Fractured Fairy Tales quickly became very popular. Also 
useful were form letters, but we quickly discovered that unless Aunt 
Martha, etc. were present, such programs were quite useless. 

The first program below demonstrates a simple Thank You letter 
(very appropriate at Christmas time) which will dump to a printer. The 
difference between the screen dump and the printer dump is the use 
of the T: and WRITE:P, commands. The body of the letter could be 
enlarged to include as many lines as one desires. The only rule to be 
remembered is all T: commands in the letter must be replaced by 
WRITE:P, commands to print. 

The second program is an example of a song between a Mad Lib 
and Fractured Fairy Tale. The *YES module allows one to rerun the 
Story without changing variables. This program could also be dumped 
to the printer substutiting WRITE:P, commands for the T: commands 
in the *YES module. 

Have fun experimenting with simple string variables over the 
Holidays. In February we should be ready to really "take off" with 
String variables by learning to combine them, divide them, and call 
them up randomly. 


RUTH ELLSWORTH 


8 ; by Ruth Ellsworth 

18 RIAN ALL PURPOSE THANK YOU NOTE, JU 
ST IN TIME FOR CHRISTMAS. 

28 XMAIN 

33 T:TYPE THE NAME OF YOUR BENEFACTOR 
48 A:SNAME 

58 T:TYPE THE NAME OF THE GIFT 

88 A:SGIFT 

78 T:TYPE YOUR NAME 

88 A:STHANKFUL 

98 T:) 

188 T:DEAR $NAME 

118 T:THANK YOU FOR $GIFT. 

128 T:SINCERELY, 

138 T:STHANKFUL 

148 T: 

158 T: 

168 T: 

178 T:IS YOUR NOTE CORRECT AND READY T 
0 PRINT? 

188 А: 

198 9: Y,N 

288 IJM:EYES, NO 

218 E: 

228 INO 

238 T:} 

248 VNEW: 

258 J:3MAIN 

248 E: 

278 DES 

288 T:IS THE PRINTER TURNED ON? 

298 A: 

388 M:Y,N 

318 JM:10N,I0FF 

311 E: 

312 40FF 

313 PA:98 

314 1:30N 

315 E: 

316 40N 

328 WRITE:P, DEAR SNAKE 

338 WRITE:P, THANK YOU FOR $6IFT. 

348 WRITE:P, SINCERELY, 

358 WRITE: P, STHANKFUL 

368 E: 

18 R:JOLLY OLD SAINT NICHOLAS? 

28 R:AN EXAMPLE OF A MAD LIB - FRACTUR 
ED FAIRY TALE TYPE PROGRAM. 

38 R:MUSIC COULD BE ADDED TO THIS ONE 
TO MAKE IT A SILLY SONG IF DESIRED. 
48 R:THIS TYPE OF PROGRAM COULD BE 
CHANGED TO ALLOW THE STRING VARIABLES 
58 R:TO BE ASSIGNED AT THE BEGINNING 
OF THE PROGRAM. 


&8 R:SPECIFIC TYPES DF WORDS COULD SE 

ASKED FOR IF DESIRED. 

78 RITHE LINES MIGHT READ 18 T:TYPE A 

NOUN 

88 R:28 A:SNOUN 

98 R:ETC. 

138 R:THE A: LINES WOULD BE REMOVED 
FROM THE BODY OF THE PROGRAM BELOW, 
AND THE 

113 R:MAD LIB OULD RUN UNINTERRUPTED 
IN THAT EVENT. 

128 ¥START 

138 15 

148 T:20LLY OLD | 

158 А1$ОҢЕ 

188 A:5TU0 

178 T:YOUR EAR THIS WAY! 

188 T:D0N'T YOU TELL A SINGLE \ 

198 A:STHREE 

288 T:UHAT I'M GOING TO | 

718 A:SFOUR 

223 A:SFIVE 

238 1:15 COMING SOON 

248 T:NOW, YOU DEAR OLD | 

258 А1$51Х 

2:8 A:SGEVEN 

278 T:WHISPER WHAT YOULL | 

288 A:$EIGHT 

298 T:TO ME; 

388 A:SNINE 

318 T:ME IF YOU CAN. 

328 T: 

338 T: 

348 T: 

258 T:WOULD YOU LIKE TO RERUN THIS SON 

6 LIKE IT IS? 

368 A: 

378 W:Y,N 

388 JM:1YES,INO 

398 E: 

488 1N0 

418 VNEV 

428 J:ESTART 

438 E: 

448 DES 

453 1:) 

468 T:JOLLY OLD SONE, 

478 T:$TW¥O YOUR EAR THIS VAY! 

488 T:DON'T YOU TELL A SINGLE STHREE 

498 T:WHAT I'M GOING TO $FOUR 

588 T:$FIVE IS COMING SOON; 

518 T:NOW, YOU DEAR OLD $SIX 

528 T:$SEVEN VHAT YOU'LL $EIGHT TO ME; 

518 T:SNINE ME IF YOU CAN. 

54g E: 


8 REM Printed on a Mannesmann Tally Sp 
irit-88 printer with square dots 


1 RER HHEUHEHTHEHHHEHHHHHHEHHHHHHEH 
2 REM XAiari Computer Enthusiasts # 
3 REM 1 3652 Vine Maple Dr i 
á REM 1 EUBEBE, OR 97495 1 
5 REM T $12 YEAR £ 
& REM 1 . DEC 83/JAN 84 


118 REM H — ALPHABET TRAIN ++ 
128 REM HE STAN CCKERS 11/83 Hu 
138 REM HHHHHHHHHHHHHH 
148 REM | 

142 REM H DEFINE STRINGS H 

148 GRAPHICS 18:POSITION 5,5:? #6; "AIP 
hAbEt*:POSITION 7,7:? 86;"tRaln":POSIT 
ION 2,192? 16; "INITIALIZING .." 

158 DIM bei), SCRS(1), $012) , TRNIS(188 
) , TRN2$11881 , TRN3$1188) , TRK1$128) , TRK2 
$128) , TRK3$(28) ,U$ 15) 

158 DIM L$1181:1 $018) -CHRS (8) :L$01, Us 
CHR6(8):1€£(2)-L$: DIM BLSt18) BLS=L$ 
178 DIM PSIS):RESTORE 188:FOR J=! TO 8 
CREAD A:P$(J,J)=CHR$(A : NEXT J 

188 DATA 1,3,7,255,255,7,3,1 

198 DIM RSIG):RESTORE 288:FOR J=1 TO 8 
"READ A:R$0J, J? -CHRSUAT: NEXT J 

289 DATA 128,192,224,255,255,224,192,1 

28 | 

218 RESTORE 228:FOR J=! TO 12:READ ASB 

$12, T) -CHRSTA) : NEXT. J 

228 DATA 24,35,66,129,129,129,129,129, 
129,129,66,8 | 

238 TRN1$0188)-* ":RESTORE 232:FOR J=! 
TO 24:READ A:TRMISUJ, J) -CHRS (A) : NEXT 

J: TRN1$125) -TRNIS 

232 DATA 77,84,94,8,84,84,285,212,212, 

128,212,212, 13, 28, 28,8, 28, 28,141,148, 1 

48,128,148, 148 

248 TRN251188)-* ":RESTORE 242:FOR J=! 
TO 24:READ A:TRN2$0J,J) -CHRS(A) : NEXT 

3: TRN2$125) =TRN2$ 

242 DATA €,32,32,32,32,32,£, 96; 96, 96,9 

6,96, 8,168, 168, 168, 168, 168,8, 224,224, 2 

24,224,224 

258 TRN3$(188)=CHR$ (8) : TRN3$01, 1) -CHRS 
18) : TRN3$12) -TRN3$:FOR J=1 TO 1&8 STE 

P &:TRN3$11,J) -CHRS (3/6495) NET J 

266 RESTORE 262:FOR J=! TO 28:READ A:T 

RK1$(3, 3) -CHRE (A) WEIT J 

252 DATA £,8,9,8,8,8,8,9,8,6,0,8,9,0,8 
,£,95,84,8,0,8,8,94,84,8,84,8,8, 

264 RESTORE 266:FOR Jc! TO 28:READ A:T 

RK2$(3, J) -CHRS (A) :NEXT J 

266 DATA 8,6,8,9,8,0,8,8,6,8,8,9,8,8,8 
, 224,224,224, 224, 224,224, 224, 21,32, 32, 

32.32.8. 


ALPHABET by Stan Ockers 


278 RESTORE 272:FOR J=1 TO 2B:READ A:T 
RK3$1J, J) -CHRS(lAY: NEXT J 

272 DATA 6,8,8,8,8,8,6,8,9,8,8,0,8,8,8 
,£,9,8,£,8,9,8,8,22,12,22,8,8, 

278 REM H SET ASIDE PM AREA H 

288 GRAPHICS 7:POKE 185,PEEK(186)-5:PM 
-PEEK(185)41:POKE 54279,PM:GRAPHICS 18 
60508 916 

298 RESTORE 388:FOR J-784 TO 712:READ 
AIPOKE J,A:NEXT J 

388 DATA 32,255, 18,82, 58,255, 34,52, 57 
318 POSITION 5,1:? #6; CHRS(142);CHRSIL 
42);CHRS(142):POSITION 6,4:? #6; °----- 
328 POSITION 8,187? 86; "ti 
riit BER 3X ALL (75 IN INVERSE H 
338 POKE 559,46:POKE 53277,3 

348 REM 4+ MAP AS ONTO PM AREA Hi 

158 VVTP=PEEK (134) 4PEEK (135) 2256: STARP 
=ADRIAS) 

388 DFFS-PMI256:512-STARP:HI-INTIOFFS/ 
256) :L0=0FFS-HIZ256 

398 POKE VUTP42,LO:POKE VVTP+3,HI:POKE 
VUTP45,2:POKE VWIP+6,8:POKE VVTP47,2 
392 REM $} MAP SCR$ ONTO SCREEN AREA i 
1 

488 SCR-PEEK (88) +256¥PEEK (89) :OFFS=SCR 
-STARPSHI=INT{OFFS/256) :LO-OFFS-HI3256 
428 POKE VVTP418,LO:POKE VUTP+11,HI 
438 POKE VVTP412,5:POKE VVTP413, 1:POKE 
VVTP414,5:POKE VUTP+15,1 

448 Y-58:2-88:X-58 

458 ASIY,Y411)-B$:POKE 53248,2:FOR J-1 
TO 59:A$01, J) -CHRS(24) : NEXT J 

458 A$1288,287) -P$:XP-64:POKE 53258,XP 
478 A$1488,415) -R$:XR-158:POKE 53251,X 
R 

478 REM Xi TRUCK COMES IN FROM RIGHT i 

z 

488 FOR J=1 TO 15:XT=J:60SUB 185g:S0UN 

D £,188,4,XT/2:FOR K=! TO 28:NEXT K:NE 

XT J:POKE 77,8 

488 REM HX PRINT WORD H 

498 GOSUB !£18:POSITION 18-LEN(VS) /2,1! 
1:? 85;U$ | 

498 REM tL LOOP TO MOVE TRAIN H 

SBP S-STICKI8):IF S=7 AND X)6 THEN X= 
-1:DIR=-1 

51€ IF S-11 AND X(156 THEN X-X*1:DIR-1 

528 IF S(15 THEN 548 

53€ IF INT(X/6)=X/6 THEN 558 

548 IF DIR--1 THEN X=X-! 

558 IF DIR=! THEN X-X41 

558 REM #4 MOVE TRAIN H 

54g SCR$1181,288) -TRN1$(X, X419) 

578 SCRS(161, 188) TRN2$(X,X419) 

578 REM D SOUND IF TRAIN MOVING H 


8 


.58£ SCR$1141,168) -TRN3$0X,3419) 


598 IF X-SX THEN SOUND 8,8,8,8 

&88 IF XO5X THEN SOUND 8,188,4,6:5X-X 
&18 IF STRIGUS)-1 THEN 588 

618 REM 3X PICK UP LETTER H 
628 C-ASCITRN3S(0X44)):IF C=8 THEN 588 
638 FOR J-1 TO 11:YsY41:A$ (Y, Y41 1) - B8: 
SOUND £, (4188) XY /3- INT (Y/31) , 18, 6:FO 
R Kel TO 28:NEXT F:NEYT 2 
&48 C5-573444255*BXX/6:FOR J=1 TO B:l$ 
(341,341) -CHRSIPEEK (CS4J-1)) : NEXT. J 
&58 AS{I294Y, 1394) -LS: POKE 53249,2 
48 ped (Y: TRE3S P, P) -CHRS (B) :SCRSUIAL, 
168) -TRN35(X, X419) 
67E FOR J=1 TO 58:Y-Y-1:A$ (Y, Yell) B: 
AS{I29+Y, 1394Y)=LS:SOUND 8, (4180) HY) 
3-INT(Y/31) ,18,6:FOR K=1 TO 18 
&88 NEXT K:NEXT JISOUND 8,€,8,9:FOR J= 
| TO B:XP-XP41:POKE 53258,XP:NEXT J 
688 REM IL IF LETTER NOT CORRECT DROP 
HH 
698 IF C-320 ASCIUS(LTRH1)) THEN GOSUB 
828 

788 FOR J-! TO 32481 TR: 22241: XP-YP417 
POKE 53258,XP:POKE 53249,7 

718 SOUND g, Y 188X (XP/3- INT (XP/32) ,18, 
&:НЕХТ J:LTR=LTR+1 

728 FOR J=! TO 15:Y-Y41:A$112941,1394Y 
)-15:S0UND 6,Y4188,18,6:NEXT 1: 611291 
Y,13941) =BLS 

738 P-l&4LTR: TRK3S IP, P) -CHRS(X/64961:5 
CR$167,88) -TRK3S1XT, XT 413) POSITION (Z 
-48)/8,1:? #6; CHRS(142) 

746 FOR 1=1 TO 36:SDUND $,188418818ND! 
E) ,8, (38-J)/3:NEXT J 

758 XP=¥P-1:POKE 53258,XP:SOUND 8,Y416 
GE(XP/3=INTIXP/3)),18,621F XP)64 THEN 
758 

7&8 2-88:POKE 53249,2:Y-Y-15 

778 FOR J=1 TO 39:Y-Y41: AS (Y, Y4 10) B5: 
SOUND £,Y*188, 18,6: NEXT J 

78£ SOUND $,8,8,8:1F LTR(LEN(US) THEN 
588 

788 REM £F WORD CORRECT - MOVE TRUCK 0 
UT H 

798 FOR J-15 TO 1 STEP -1:XT-1:605UB 1 
geg: enn £,188,4,XT/2:FOR Kel TO 28:N 
EXT KINEXT J 

795 60SUB 284£ 

888 POSITION 7,111? 1615 ":FOR je 
18 TO 168 STEP &:TRN3$(J, J) -CHRS13/649 
5):NEXT J 

818 LIR=8:FOR J=17 TO 22:TRK3511,1)-CH 
PSIE) NEXT J:POSITION 8,1:7 #6" 
*:G0TD 488 

818 REM XI ROUTINE FOR PUTTING INCOPRE 
CT LETTER BACK H 





828 FOR J=1 TO 14:SOUND 8, 58+5@#(XP/3= 
INT(XP/3)) , 18,6 

838 2-241: XP-XP41:XR-XR-4:POKE 53249, Z 
POKE 53258,XP:POKE 53251,XR:NEXT 1:50 
UND 8,5,9,8 

848 FOR J=1 TO 14:2-2-1:XP-XP-1:XR-XR- 
(LE 53249,2:POKE 53258,XP:POKE 5325 
L,XR:NEXT J 

858 FOR J=1 TO 8:XP-XP-1:XR-XR42:POKE 

51258, XP:POKE 53251, XR: YzY41:$(1294Y, 
139431218: AS Y, Ye L) -BS: NEXT J 

848 FOR J=1 TO 27:XR-XR42:POKE 53251,X 
P:Y-Y41:8511294Y , 139+Y)=L$:A$(Y,Y+11)= 
BS:SOUND 8,Y4188,18,8:NEXT J 

878 FOR Jel TC 15:50UND 8,Y4188,18,8:Y 
att "eg, Y4 11) 2B$24$01294Y 1394) 28: 
NEXT 2: TRN3$ (P, P) -CHRS(C) 


888 FOR-J-1 TO 38: SOUND £,18841881RNDU ` 


£1,8, (38-3) /3: NEXT 1 

098 SCREL141, 168) -TRN3S (X X419) :4$ 0129 
iY 13932Y)=BL$:FOR Jel TO 11:Ү=Ү-1:А%1*Ў 
ТН) =В:НЕХТ J 

988 SOUND 8,8,8,8:607O 588 

98 REM ++ MACHINE LEVEL - MOVE CHARAC 
TER SET H 

918 POKE 756,PH 

928 DIM MUS(2S):RESTORE 938:FOR J=! TO 
73:READ A:MUS(I, J)-CHRS (A) NENT 1 

938 DATA 184,184, 133, 284, 184,133, 283, ! 
$4,133, 285,184, 133,285, 168,8, 177,283,1 
45,285, 136, 288,249,96 

948 5573444512: NCS-PM3256: A-USR (ADR 
NUS) , CS, NCS) . 

958 FOR J=NCS TO NCS#7:POKE J,8:NEXT J 
968 CS-573444255: NCS-PM32564256: A=USR 
ADR(KVS} , CS, NCS) 

978 FOR J-NCS TO NCS47:POKE J,255:NEXT 

En 

OBE NCS=PME254:RESTORE 998:FOR J=168 T 
D 167:READ AZPOKE NCS#J,A:NEXT J 

998 DATA G,£, 60,122,219, 219, 182, 68 
1868 POKE 756, BR: RETURN 

1588 REM XX PICK A WORD SUBROUTINE ++ 
1818 RESTORE 1828:FOR J=1 TO INTIRNDIÉ 
M18) 41:READ WS:MEXT J:RETURN 

1828 DATA DOG, CAT, BIRD, HAND, COW, HORSE, 
PET, FROG, FLY, ARM 

183F DATA HAIR,TDE,FIMGER,LEG, FACE, EAR 
MOUTH, BAT, WORK, PLAY 

(ap DATA WAGON, BIKE, MILK, VATER, JUICE, 
BREAD, ANT, GOAT, GHOST, FLAT 

1842 REM ++ PRINT TRUCK SUBROUTINE H 
158 SCRS187, 128) =TRKIS(XT, XT#13) : SCR 
$187, 188) -TRK2S XT, XT413) :SCR$167,88)- 
TRIS (XT, XT 13) : RETURN 

2828 REM Hk TUNE SUBROUTINE 44 

2832 DATA 91,6,121,1,91,2,121,1,91,2,8 


1,1,72,8,91,8,68,5,68,1,91,4,81,4,72,8 
,8,4 

2834 DATA 91,6,121,1,91,2,121,1,91,2,8 
1,1,72,8,91,4,72,2,72,1,72,4,81,4,81,4 
,72,4,81,8 

2848 RESTORE 2832:FO0R J=1 TO 29:READ P 
,T:iIF pet THEN FOR K=! TO 283T:NEXT K: 
6070 2878 


BUGS by Les Ellingham 


Printed with an Epson Ni-86 
G REM III UE EIU UU GN 


| REM f BUSS 1 
2 REM t by Les Ellinghas 1 
š REM 4 Stafford, England 1 
4 REM £ for PAGE 6 magazine. t 
5 REM £ Submitted to ACE library 1 
à REN t in thanks for aany fine t 
7 REM 1 programas, t 
B REN (Ditt 


9 ВЕК ACE Newsletter, 3662 Vine Bap 
le Eugene, OR 97485 

19 TRAP 18889:6070 1888 

19 REM tš DELAY SUBROUTINE $t 

28 FOR Dei TO DL:NEXT D:RETURN 

29 REM tt UP-DATE SCORE ETC 11 

38 IF SCCSC THEN CSC=SC:SCORE=CSC+BSC 
35 STREINT(SC) /3: IF. STR(G. THEN STR=8 
48 POSITION 28,0:? "STR"; INTISTR); 

* POSITION 29,9:? "SCORE"; SCOR 
E: 


H 
45 IF STR<(=@ THEN POP :50T0 688 


58 POKE 77,@:RETURN 

55 POKE 77,8: RETURN 

59 REM t$ CHECK FOR COLLISIONS ETC 11 
58 M-12:82-12-1 

&5 IF PEEK(M4N2)-3 THEN 158 

78 IF PEEK(M4M2)-4 OR PEEK(M#N2)=5 OR 
PEEK(N4N2)27 THEN 95 

75 POKE M,@:POKE M«N2,4 

88 SOUND 1,16,8,6:80UND 1,8,8,6:RETURN 


95 FOR 128 TO 7:М2=МР05(1) 
185 IF PEEK(N4M2)-8 THEN POP :6070 75 
118 NEXT I 
115 POKE 2,8:POKE M,5:605UB 815 
128 BUGS-BUGS-1:SC-SC*18:SCORE-SCOREe2 
:CSC=CSC+2:POKE 28,8:POKE 19,8: IF BUGS 
¿=@ THEN POP :G0TO 588 
125 M=:N2=8:G0SUB 36 
13€ RETURN 

9 


156 POKE M+82,4:BUGS=BUGS+!:TS=15-1:5C 

z5t-((LVt5*8) -TS) 14: B0SUR 36:60T0 48 

199 REM t$ MAIN GAME ROUTINE ft 

286 S-STICK(8):IF S=15 THEN 212-I4MPOS( 

INT(RND(S) 8) ) FOR Dei TO 72-LVE8: NEXT 
D:60T0 215 

218 12=1+51(5) 

215 IF PEEK{22)=5 THEN 288 

228 IF PEEK(Z2)=3 THEN BOSUR 158 

225 IF PEEK(22)24 THEN B0SUR Aë 

238 IF PEEK(22)-7 THEN GOTO 699 

235 IF PEEK(19)>3 THEN GOSUB 799 

246 FOR Det TO 45-LVIS:NEIT D 

245 POKE 2,8:1-212:POKE 1,6 

2586 SOUND 6,12,18,4: SQUND 6,8,6,8 

255 6070 298 

499 REM tt LEVELS AND BONUSES tt 

568 IF SC<CSC THEN 588 

528 GRAPHICS 17:POSITION 6,9:? 16: "LEV 
EL *;LV 

525 FOR I=1 TO 28-((LVt6*6) TS) :PDSITI 
QN I-1,11:7? 35; " t : BONUS-BÜNUS*5 

534 V-2:50SUR 010: Ve) 

535 DL-16:8605UR 28 

546 POSITION 5,13:? #6; "BONUS ";BONUS 
545 NEXT [:BSC=BSC+BONUS 

530 DL-582:605UD 28 

555 LVzLVe1:IF LY>9 THEN LV=9 

568 7 S5;CHR$(125) POSITION 6,9:? 16: 7 
LEVEL "LV: SOUND 8.755: 19.9: SQUND 1,25 
4,18,8 

565 FOR 1=Ё TO 255:POKE 788,I:NEXT I 
575 DL=588;50SUB 29:605UB 826 

588 BONUS=@:GRAPHICS @:POKE 755,9:PQKE 
718,8:60T0 1268 

599 REM tt END OF GAME ROUTINE tt 

686 FOR 12255 TO 8 STEP -5:50UND 8,255 
-1,16,8:FO0R bel TO S:NEXT D:POKE I,I:N 
EXT I 

518 FOR 1=1 TO 3:60SUB B15:NEXT I 

528 GRAPHICS 18:POSITION 5,8:? #4; “GAM 
E OVER" 

525 IF SCORESHI THEN HI=SCORE 

638 POSITION 2,2:? 45; 22020 XXX LL 
Ch 
35 POSITION 5,4:? #46;"SCORE “;SCORE 
648 POSITION 5,42? $6;'HI-SC "Hl 

445 POSITION 2,837 45; "22722222040 XKX 
CH 

658 POSITION 3,18:? #4;"press start 
to . play again" 

655 POKE 711,PEEK (20) 

666 IF PEEK453279) $6 THEN 655 

665 GRAPHICS 8:POKE 718,8:POKE 755,8:5 
C=18:CSC=8: RSC=8:LV=1:6070 1268 

886 REM tt SOUNDS ETC tš 

818 FOR S=14 TO 8 STEP -V:50UND 6.51189 
,12, 8: NEXT 5 


m 


Print Atari Graphic Charactors by Greg Menke 


£ REM Printed on a Mannesmann Tally Sp 
irit-88 printer with square dots 

! REF 
2 REM Atari Computer Enthusiasts X 
š REM 1 3652 Vine Raple Dr + 
4 RER + EUSERE, OR 97445 + 
5 RER t $12 YEAR D 
£ REM 1 DEC 83/JAN 84 

7 REE HTHHTHHIHHTHHTHHTHHHHHHHHH 
1£ REM Graphics Characters 

28 REM or the MX-88 with Graphtrax. 
A8 REM 

36 REM By Greg Menke. 11/8/83 


98 REM 

£8 REM (381)972-8324 

62 REM 

64 REF 

bé PEN 

78 GRAPHICS @: DIM A$(28),8$(9),C$14),C 
HAR(8,8) ,A(488) , TITLES (128) 

72 SIZE-FRE!8) -582: DIM BUFFS(SIZE) : BUF 
F$(1)z* «P  BUFFS(SIZE)=" er" BUFFS (2) =BU 
EFS: SECTORS=INT (SIZE/125) 

75 FOR 6-8 TO 8:FOR H=8 TO 8: CHARIH,6) 
-8:A16)-8:NEXT H:NEXT 6: 60SUB 2882:FOR 





6-8 TO 488:A(6)-8:NEXT Б 

886 ? :? 1? "Enter filename for print.' 
:? "{You have "$SIZE;" ree butter byt 
e 

$5,*:? * *385ECTORS;" Sectors)." 

9g INPUT AS: TRAP 188:60T0 118 

188 ? :? "I can’t find ';A$:60T0 88 
Lig TRAP 48889:0PEN 31,4,9,A$:0PEN 82, 
CR Zë AA 

112 ? 1? ;? "Do you want the modified 
SPACE':? "character (Y/N) ";:INPUT A$ 
115 IF ASOY* AND AS(>"R” THEN 112 
12€ GRAPHICS £:? "Do you want a screen 
echo of printout (Y/N) "sc INPUT C$ 
122 IF C$O0?Y* AND CS$<>°R” THER 128 
125 ? ;? "Enter Printout title.':? "(R 

ETURN only if none.]*:? :INPUT TITLES 
127 IF LEN{TITLES) > THEN ? #2:? 82;TI 
TLE£:? 82:7 82:57 82:7 #2 

13g ? 7? "Enter new character set #.°: 
? "iRETURE only for no change.) * : INPUT 


AS 
135 IF LEN(AS))£ THEN POKE 756, VAL(AS) 
14E GRAPHICS €:? 32;CHRS127);*(* 

14! BIN-!:TRAP 147:NO=8:FLAG=£:L=LEN(B 
UFFS) 

142 GET #1,A:BUFFS(BIN, BIN)=CHRS(A} :BI 
N=BIN+1:? * Kj CHRÉ(AOj 

143 IF BIN-L THEN POKE 559,34:CLOSE 82 
SCLOSE TEEN ee OT TTS 
YEYZUYUPEEERPRE 2 TRAP 48888:? :? 


:60T0 548 

145 GOTO 142 

147 GRAPHICS £:ND-BIM:BIN-1:CLOSE 81:1 
F C$-*N' THEN POKE 559,8 

148 IF LEN(AS))Z THEN POKE 756, VAL 1561 
15£ FOR ВҮТЕ=8 TO 1 STEP @:INVERSE=8 
155 A-ASCIBUFFS(BIN,BIN]!:POKE 53279,8 
'POKE 53279,8:1F C$="Y" THEN ? CHR$(27 
) 

SCHRS(A); 

157 BIN-BIN2!:TRAP 518:IF (BIN-1)=NO T 
HEN FLAG-1:60T0 518 

178 IF A-155 THEN X-f:Y-ÜFFSET:GDSUB 2 
15:2 82:6070 588 — 

188 IF A127 THEN A-A-128: INVERSE-! 
198 IF A)31 AND AC96 THEN A-A-32:60T0 
285 

288 IF A(32 THEN A=A+64 

285 IF А=В AND AS="Y" AND NOT INVERSE 
THEN 60SUB 1788:60T0 588 

218 LOC=(PEEK(756)4256) +AE8:G0SUB 1885 
:6DTO 588 

211 REM 

215 IF OFFSET)255 THEN X-1:Y-0FFSET-25 


6 


217 ? M2;1CHR$127) 5 K" 3CHRSCY) 5CHRS (X 5 
228 FOR 6-1 TO OFFSET:? ®2;CHRS{A(6)); 
:NEXT 6:0FFSET=2 RETURN 
588 IF OFFSET=488 THEN X=8:Y=0FFSET:60 
SUB 215:? #2 
581 NEXT BYTE 
582 REM 

S£: REY 

516 IF CFFSETOS THEN X=8: Y=OFFSET: S0SU 
B 215 

515 GRAPHICS g:TRAP 48882:CL0SE 82:CLO 
SE 81:7? 'L2':FOR 6-1 TO 28:LPRINT ;NEX 
T 

6 

528 IF NOT FLAG THEN GRAPHICS 87? :? 
:2 17 "Unexpected error :*;PEEK(195)°6 
0 

TO 54£ 

538 7 :? :? "End of file. Printout com 
plete.*:? 7? 

54g ? "Press i'i? 5? "ERIR to Re- 
run,*:7 PRR ЕД to end.’ 

55g IF PEEK(53279)=6 THEN CLR ¿RUN 

568 IF PEEK{53279)=5 THEN 7 CLR CERI 
578 6010 558 

995 REM 

994 КЕР 

997 REM 

186E REK CONVERT TO BINARY 

1818 FOR 6-8 TO 7:A-PEEKILOCt6) 

1826 C=128:FOR H=! TO 8:CHAR(Gt1,H) -£ 
183€ IF (A-C)>=8 THER CHARIG*1,H) 21:À- 
A-C 


6 


194% C-C/2:NEXT H:NEXT 6 

125£ IF INVERSE THEN FOR 6-1 TO 8:FOR 
Hz! TO 8°CHAR(G,H)=ABS{CHAR(6,H)-1):NE 
X 

T H:NEXT 6 

187€ REM CONVERT BACK TO DECIMAL 

1888 FOR 6-1 TO 8:C=128:NUN=8:FOR Hel 
TU 8 

1898 IF CHAR(H,G)z1 THEN NUM-NUMIC 
1188 C-C/2:NEXT H:0FFSET-OFFSET41:A(0F 
FSET)-NUM:NEXT 6 

1118 RETURN 

1788 REM MAKE SPECIAL SPACE CHARATTER 
1716 BS=" ERE Eee" LOCALS (591 
1728 60SUB 1818:RETURN 

1997 REM 

1998 RER 

1999 REM 

2885 REM DISK DIRECTORY 

2818 OPEN 81,6,0,'D: 1.3" : TRAP. 2838 
2828 GET #1,A:? CHR$(AM;:60T0 2828 
2636 TRAP 4888£:CLOSE RI:RETURN 


2858 SCUND £,P,18,8: SDUND 1,21P,18,6:F 
OR L=! TO 1237 

2858 NEXT L:SDUND €,8,8,@:SOUNE 1,8,8, 
g 

2878 NEXT J:RETURN 
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8998 

E459 

F3E4 

888C 

3888 A958 
3882 8D8883 
3825 A981 
3887 850818; 
388A A93F 
388C 8D$28; 
jOgr A949 
381! 8D8383 
3814 A985 
3816 808583 
3819 8D858; 
381C A98f 
381E 8D848; 
3821 808983 
3824 809485 
3827 8D839; 
382A AIST 
382C 808881 
382F 2859E4 


3832 1885 
3834 405738 


3837 A28B 
3839 BD88665 
383C 905885 
383F CA 
3848 18F7 
3842 2859E4 


3845 3818 


3847 288685 
384A А58С 
384C 805538 
384F А580 
3851 805638 
3854 288888 


3857 A967 
3859 802183 
385C A938 
385E 80228; 


BOOTBUILD con't from Nov ACE 


9188 ; LISTED:AUTBUILD 

8118 ; 

$128 ; ROUTING TO BOOT IN THE RS232 INTERFACE 
813$ ; THEM EXECUTE A BASIC STATEMENT 

$148 ; E.6., RUN'D:MENU 

8158 ; 

8168 DUMMY = $8885 

$178 SIO < $E459 

8188 SCRNRD = SF3E4 

£288 {= $2084 

8218 LDA 8$58 

8228 STA $8188 SET UP DCB TO 

8238 LDA #1 INPUT "R" HANDLER 
$248 STA $8381 FROM 858 INTERFACE 
8258 LDA FOE 

8268 STA $8382 

6278 LBA #848 

8288 STA $8383 

8298 LBA 85 

8385 STA $8185 

8318 STA $8386 

8:28 LDA M 

8338 STA $8384 

0348 STA $8389 

8358 STA $838A 

IO STA $5388 

8378 LDA pat 

8365 STA $5388 

9398 JSR SID TO INPUT "R" HANDLER 
8488 ; 

$416 BPL 10.0K 

5428 JP LDBSC IF CAN'T INPUT 
9438 ; 

$448 10.0K LDX tegt SET UP INPUT BUFFER 
$458 LOOP LDA $8588, 

"TIT STA $8388,X 

8478 DEX 

8486 BPL LOOP 

8498 JSR SIO TO BOOT IN pr 
$585 ; 

8518 BMI LDBSC IF BOOT FAILED 
5525 ; 

8538 JSR $8586 — TO INIT. RS232 
8548 LBA DOSINI — TO CREATE IND. JSR 
8555 STA INDJSRHI 

$546 LBA BOSINI+! 

8578 STA INDJSR+2 

8588 INDISR JSR BUNNY 

£598 ; 

Song LDBSC LDA @SCRVEC SET UP ADDRESS 
8618 STA $8321 TO "STEAL" SCREEN EDITOR 
8528 LBA 8538 VECTOR TABLE 

8538 STA $8322 


8548 ; 


3951 A788 
3863 800638 
3866 68 


8867 

3867 FBF3 
3869 33F6 
386B 7638 
3850 A3F6 
386F 33F6 
3871 3CF6 
3873 4CE4F3 


3876 

3876 88 
3877 ACB638 
387A F689 
387C B99138 
387F CED638 
3882 A88! 
3884 6f 


3885 8C2183 
3888 A9E4 
388A 852283 
388D A99P 
388F AgE! 
3891 68 


3892 
3892 
38D6 
38D6 


8558 
8668 
8678 
$688 1) 
$698 SCRVEC 
8788 
8718 
8726 
8738 
8748 
8758 
$768 
8778 | 
8788 SCRNWT 
8798 
8888 
8819 
$82$ 
6838 
8848 
8858 
8866 ; 


LBA #$8 DUMMY VARIABLE FOR 

STA CHDLEN LENGTH OF BASIC COMMAND 
RTS RETURN TO DOS 

= 1-$3888 

.DBYTE — $FBF3 COPY OF SCREEN EDITOR 
.DBYTE — $33F6 VECTOR TABLE, EXCEPT 
.UORD ` SCRNUT WITH NEW SCREEN WRITE 
.DBYTE — $ASF6 

.DBYTE — $33F6 

.DBYTE — $3CF6 

JMP SCRNRD 

= i 

BYTE '$8 

LDY CMDLEN NEW SCREEN WRITE ROUTINE 
BEG ENDBAS 


LDA BASCMD-1,Y WRITES THE STORED BASIC 


DEC CMDLEN 
LDY al 
RTS 


$878 EMDBAS STY $8321 


8888 
8898 
8988 
8918 
6926 
89358 ; 


LDA 8$E4 
STA $8322 
LDA #598 
LDA #i 
RTS 


$948 BASCHD = 3 


8958 


= 4644 


$968 CMDLEN = T 
„END 


8978 







COMMAND TO THE SCREEN 


SETS UP VALUES FOR 
NORMAL RETURN 


STORAGE RESERVED FOR 
BASIC COMMAND | 
LENGTH OF BASIC COMRAND 


N 


Es 





- 
- 














815 FOR S=14 TO 8 STEP -V:SOUND 8,158- 
5118,12,5: NEXT S:50UND 8,8,8, 8: RETURN 
828 SOUND $,8,8,8:SQUND 1,8,8, 6: RETURN 


899 REM tt ADD NEW KILLER BUG fi 

986 X-SCREEN«INT (RND (8) 1799) +48 

918 IF PEEK (0) 8 THEN 988 

226 POKE 1,7 

938 POKE 19,0:POKE 28,6:RETURN 

1888 REM tt TITLES AND INITIALISE t1 
1885 GRAPHICS 18:V-1 

1618 FOR I=1 TO 17 STEP 2:POSITION 1.9 

:2 16: zz" :POSITION 1,11:? #6;"==":NE( 

EI 

1828 FOR Iz1-TU B8:POSITION-1,2:2- 86; TH: 

"POSITION 1-1,2:? $6;" ":POSITION 19- 

— 1,2:2 $6;"s":POSITION 26-1,2:? $6;" " 

1825 GOSUB 89:NEXT I 

1829 DL-589:60S5UB 26 

1836 POSITION 9,2:? Ar 'Ug" 

1835 605UB 818 

1848 POSITION 9,8:? 16: "by" :POSITIQON 4 

,7:? #6;"les ellinghas" 

1845 BOSUB 1266:DL-759:605UB 26 

1958 POSITION 2.557 #4;"“select lev 

el "Ly 

1855 POSITION 1,7:? #4;"press start 

to play' 

1968 IF PEEK(53279)=5 THEN GOSUB 915: L 

V=LV+1:IF LV>9 THEN LVz1:POSITION 15,5 

:? CHA 

1855 IF PEEK(S3279)=6 THEN 1258 

1989 P=PEEK(78):POKE 788, PEEK (718) : PU 

KE 718,P 

1898 DL=25¢:GQSUB 28 

1188 GOTO 1958 

1288 REM 

1218 DIM ST(14), P0517) 

1218 LV-1:8Cz18:V71 

1228 FOR I-1 TO 14:READ ASTID S6: NEXT 
I 

1225 DATA 8,8,6,8,41,-39,1,8,39,-41,-1 

,8,48,-40 

1238 FOR 1=# TO 7:READ A:MPOS(I)-A; MEX 
TI 

1235 DATA 1,-1,39,-39,48,-46,41, -41 

1245 RETURN 

1258 POKE 166,PEEK(186) Dr GRAPHICS 8:P 

DKE 718,8:POKE 753,8 

1255 BOSUB 2588 

1256 M-80:82-8:1-8:12-8:8U6S-LVt 3: TS=LV 

tété 

1265 POKE 756,CS/256:G0SUB 2868 

1278 POKE 718,18 ` 

1275 SCREEN=PEEK (88) *256tPEEK (89) 


1288 GOSUB 1586:60SUB 38:POKE 19,9:POK 
E 28,:6070 288 

1499 REM t DRAW SCREEN tt 

1586 FOR 1-48 TO 79:POKE SCREEN+I,5:NE 
yr 1 . 2 
1518 FOR 1-88 TO 839 STEP 46:PDKE SCRE 
EN«1,5:POKE SCREENeI439,5:NEXT I 

1526 FOR 1-848 TO 879:POKE SCREEN+I,5: 
NEXT I 

1545 RESTORE 1568 | B 
1556 FÜR I=1 TO S:READ AsPOKE SCREEN«8 
85+1,А:НЕЙТ I 

1568 DATA 44,37,54,37,44 

1570 POKE- SCREEN+892,LV+16 

1688 REM 

1618 FOR I=1 TO LYLE 

1528 X=SCREEN+INT (RND (8) 1799) +48 

1625 IF PEEK(X)=5 THEN 1428 

1636 POKE X,3:NEXT 1 

1848 RESTORE 1656:FOR I=1 TO 24:READ A 
:POKE SCREEN+A,S:NEXT I 

1658 DATA 361,362,363, 441,442, 443, 98,1 
88, 138, 148, 178, 186,476,477,478, 556,557 
558, 746,742, 786, 782,828, 822 

1786 FOR I=1 TO Lu 

1718 XsSCREEN« INT (RND (8) £799) 48 

1728 IF PEEK(3)-5 OR PEEK(X)24 THEN 17 
16 | 

1736 POKE X,4:NEXT I 

1746 1=SCREEN#58@:POKE 1,6 

1756 X-SCREEN« INT (RND (8) 1799) +48 

1768 IF PEEK(X)=5 OR PEEK(X)=4 OR PEEK 
(X)=3 THEN 1756 

1778 POKE X,7 

1798 RETURN 

2888 REM t NEW DISPLAY LIST Í 

2885 POKE 559,8 

2818 DL=PEEK (568) +2568PEEK (561) 

2826 POKE DLe3,78:POKE DL+4,4 

2838 FOR 1=7 TO 27:POKE DL+I,4:NEXT I: 
POKE DL«28,6:POKE DL429,65 

2648 POKE DL«38,PEEK (568) :POKE DL+31,P 
EEK (551) 

2845 POKE 559,34 

2858 RETURN 

250@ REM i CHANGE CHARACTER SET 1 

2505 RESTORE 2536 

2515 CS=(PEEK (186) £1) $255 | 
2528 DIM MCS(32):FOR I=1 TO 22:READ A: 
MC (I, I)=CHRS(A) NEXT I: A=USR (ADR (NCS) 
57344, C8) 

2538 DATA 194,184,133, 204, 184,133,283, 
184,133, 266, 184,133, 285, 142,4 

2535 DATA 168, 8,177,283, 145, 285, 136, 26 
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8,249,238, 284,238, 264, 282, 288, 240,96 
2558 RESTORE 2588 | 

2558 READ A:1F A=-1 THEN RETURN 

2578 FOR J=@ TO 7:READ B:POKE CS+018+J 
,BiNEXT Jr BDT 2568 

2586 DATA 5,6,20,65,213,81,213,60,28 — 
2585 DATA 4,138,48,176, 178,178, 48, 46,1 
36 

2598 DATA 3,68,255,255,169,48, 46, 48,17 
g 

2592 DATA 7,65,28,85,85,85,26,28,65 
2595 DATA -1 

18886 GRAPHICS :? PEEK(195);" AT ";PE 
EK (185) €2581PEEK (187) 


Jerry White 
Sends Greetings 


1 REM SEASONS GREETING TO MY FRIENDS I 
KE ACE- BY JERRY WHITE 
188 GRAPHICS 8:POKE 82,18:POKE 83,39:P 
OKE 752,1:POKE 764,255 
118 SETCOLOR 2,13, 4: SETCOLOR 4,4,2 
128 POSITION 13,4:2 "HAPPY HOLIBAYS*:? 
{? 
!3 2 ШШ a ` Ree" 
148 ? EE i E H Hü m" 


158 ^ E = Em ш" 

ir 7 BR ШШ EEE” 
KT E NE m" 

188 ? E ú= ш NEN EU 
198 ? 8 B БШШ ume 


288 ? 1? 12 ' froe Jerry White’ 

218 COLOR 168:PLOT 8,8:DRAVTO 8,23:DRA 
WTO 39,23: DRAVTO 39,8: DRAVTO 8,8 

228 IF PEEK{764)=255 AND PEEK(53279127 
THEN POKE 789,PEEK(22):60T0 228 

238 POKE 764,255:6RAPHICS 8:POKE 82,2: 

? 1? 'BASIC*:? "IS'3:END 





8 RER EHH НН 


2 REM T TINY TEXT MARK II 

j REM 1 

4 REM £ priginal program 

S REM £ by Stan Ockers & Jis Carr 

6 REM £ 

7 RER f modified by Bill Hardwick 
8 REM t 

9 ВЕЙ HIHHIHHHHRHHHHHHHHHHHHEHH 
11 REM ACE NEWSLETTER 3662 VIRE MAPLE 
EUGERE OR 97445 

12 CLR :POKE 8,@:GRAPHICS 8:POKE 712,1 
48:POKE 752,1:? CHR$1125) : DIM PL$(1),S 

P$(48) :FOR I=1 TO 48:SP$(I,I)-" *:НЕХТ 
I 

13 DIM C$158),L$ (1588) ,LP$1188) ,D$1256 
) 

14 DIM 5$(45),1$1(128) ,A$(128) 7 SIZ-FRE( 

£1-S8:DIM T$(SI2):FOR 1=1 TO 4S:READ A 
:S$ (I) zCHRSTAT > NEXT I 

28 DATA 184,184,135,284,184,133,283, 18 

4,132,286,184,123,285,184,194,168,162, 

£,161, 263,145, 283, 198, 283, 165 

3€ DATA 262,281,255, 288, 2,198, 284,165, 

283,197, 285, 288, 236, 165, 284,197, 286, 28 

8, 238,96 

48 FOR 121535 TO 16SS:READ A:POKE I,A: 

NEXT I 

SE DATA 164, 184, 133, 284, 184, 133, 282, 18 

4,133, 286, 164, 133,265, 162, 8,169,248, 32 

y 056,169, 48, 32, 183,6 

68 DATA 145,287, 288,8, 169, 168, 32, 183,6 

24, 144, 18, 169, 48,32,53,6, 169, 128,32, 1 

83,6, 169,248, 32,53,6,96 

65 DATA 133,288, 161, 283,41, 128, 168, 141 

, 283,41, £27 

78 DATA 281,96,176,11,281,32,176,5,24, 

195,64, 288, 2,233,32,129, 285, 152, 1, 265, 

125, 2B5, 238, 283, 288,2 

88 DATA 238, 284,238, 285, 288, 2,236, 2864, 

198, 288, 268, 289,96, 133, 288, 169,8,129,2 

85,238, 285, 288,2 

98 DATA 238,284,198, 288, 288, 244,96 

118 P=241°POKE 287,8:POKE 82,8:0PEN #2 

,5,£," E2*:T$01)2*,* 2 7$0488) 2* , 52 T$(2)= 

T$ 

128 SCR=PEEK (88) £2561PEEK (89) +128°LL=7 

£:LM-5: IND=5: TAB24??PSz662;FF-6:60T0 3f 

L 

298 ? * INSERT TEXT OR ... PRESS SELEC 

T TO EDIT" 

295 POKE 782,8:POKE 752,8 

388 POSITION 8,8:? SIZ-LEN(T$);" FREE" 

:S-STICK(£):IF S215 THEN 338 

385 IF S=14 AND PCLEN(TS) -328 THEN P=P 

+46 

318 IF S=13 AND P2288 THEN P-P-48 | 


Ka ca ia ja re ris ja a 


TINYTEXT MK II by Bill Hardwick 


315 IF S=11 AND PXLEN(T$)-288 THEN PeP 
+ 

328 IF S=7 AND P)241 THEN P-P-1 

338 A=USR{1536,ADRITS) 4P-241, SCR) 

335 K-$ | 

348 POKE 53279,8:PK-PEEK153279) :1F PK- 
5 THEN GOSUB 988 

358 IF PK=3 THEN 588 

388 IF PEEK(764)(255 THEN 488 

345 K-K^1:IF KC18 THEN 348 

378 IF STRIG(8)=8 THEN P-LEN(T$]-248:P 
OKE 287,8 

388 GOTO 388 

488 POSITION 8,18: INPUT #2; 1%:PK=PEEK( 

286717: 1 PK-B THEN AS="" 

485 LI=LEN(IS) SLT=LEN(T$) IF LI-8 THEN 
458 

487 IF LI+LT)SIZ THEN POSITION 8,1:? ' 

QUT OF SPACE*:60TO 388 

418 IF PK=1 THEN AS=TS(P,P#39): IF TSIP 
£39,P439)-* * THEN I$(LI+1)=*" *:11=11+ 
I 

428 LA-LEN(AS) :AD-ADRITS) :ÓIF LIDLA THE 
N A-USR LADR SS) ,AD4LT-1, AD4P-2,LI-LA) 
438 T$(P,P+LI-1)=I$ 

448 IF LADLI THEN T$(P+LI)=T$(P+LA) 
458 P-P4L I: TS ILT4LI-LA41)-* *:POKE 287, 
8:60T0 388 

45 IF PEEK(287)-1 THEN 478 

465 IF P(LENIT$)-279 THEN T$(P)=T$(P+4 
g) 

478 POKE 764,255:60T0 388 

S88 TRAP 95g:ST-PEEK (568) *PEEK (551425 
£*4:PDKE ST-1,78:POKE ST42,7:POKE ST43 
,112:POKE ST44,5:POKE ST45,6 

585 POKE ST424,65:POKE 712,148 

518 POXE ST425,PEEK (568) :POKE ST426,PE 
EK (5461) 

515 OP-0P41:IF OP=7 THEN OP=1 

528 POKE 752,12? CHRS{125):POSITION 26 
CTIE OP=1 THEN ? "LOAD ' 

522 IF OP=2 THEN ? "EDIT" 

514 IF OP=3 THEN ? "PRINT? 

534 IF OP=4 THEN ? "SAVE" 

538 IF OP=5 THEN ? "DISPLAY" 

53° IF Dëst THEN ? "REPLACE" 

548 POSITION 8,1:? "PRESS START TO BEG 
INOPTION TO ALTER MODE" 

558 FOR D=1 TO 38:NEXT D 

555 POKE 53279,8:1F PEEK(53279)=3 THEN 
515 

557 IF PEEK(53279) ()6 THEN 555 

5&8 POKE 764,255:POSITION 28,1:? CHRS( 
125) POSITION 8,1:0N OP GOTO 2886, 298, 
598, 1568, 598, 5888 

598 FOR I=1 TO &:7 "j:NEXT 1:7 :FOR I= 
1 TO 4:2 * "NEXT IS CO ° 
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594 POSITION 8,1:? "SET FORMAT CONTRO! 
S":POSITION 8,622 "LIME LEFT IM- 
TAB PAGE FORM':POSITIOR 6,7 

595 PDKE 752,8 

S94 ? "SIZE МЮ МП STOP 5 

HE "И?" "ШИН NDS" 

TAB; **;PS; * FF:POSITION 8,8 

686 INPUT LL,LE, IND, TAB, PG, FF: pe 246 

&f5 POKE 782,54:1F OP=5 THEN 719 

&1£ ? "PO YOU WANT TO PAUSE AT END OF 

EACH PAGE  (Y/M)*; INPUT PLS:IF PLS: 
y*Y* AND PLSO*N*. THEN 618 

718 LINE-S:GRAPHICS S:POKE 712,148:POS 
ITION €,3:FL=6:POKE 752,1:7 CHRS1125) 

715 PL-LL:TPzP: P-ASC(TS (TP , TP) ) 

728 RL=LL-INDE(B=9) -TABE(B=28) 

725 IF B-19 AND OP=3 AND LINE(=(PS-FF) 
THEN LPRINT * ":LINE-LINEH 

724 IF B-19 AND OP=5 THEN ? 

727 IF pelt AND OP-3 THEN FOR I=1 TO P 
S-LIRE:LPRINT " *:NEXT I:LINE-£:60SUB 
978 

728 IF B-16 AND OP=5 THEN ? :? :? :LIN 
E-f 

735 C=8:K=8 

748 К=К+1:ТР=ТР+1:11Е K=RL+1 THEN 765 
745 IF TPOLEN(T$)-241 THEN FL-1:60T0 8 
1$ 

758 A-ASCITS(TP,TP)):IF AC32 THEN C=8: 
GOTO 788 

755 IF A-32 THEN C=C+1 


768 5010 748 

765 IF C-8 THEN AS-TSIP41, TP- 1) : TP-TP- 
1:60T0 818 

767 IF TS(TP,TP)=" * THEN A$-TSIP41, TP 
-1):60T0 81$ 

768 IF TS(TP-1,TP-1)-* * THEN C-C-1 
778 К=! 

775 TP-TP-1:IF TS(TP, TP) O* " THEN K=K 
+1160Т0 775 

788 IF TP=P+! THEN P-TP:60TO 715 

705 A$="":1=P+1 

798 AS(LEN(AS) £L) -TSCI, D: IF. TSU,ID)O 
* * THEN 885 

795 IF C)1 THEN A-INTIK/C4RNDI)):IF A 
yË THEN FOR J=1 TO A:ASILEN(AS) LIS ` 
"NET JIK=K-A 

gee C=C-! 

882 IF C=! AND KR THEN FOR J=1 TO K:4 
$(LEN(AS)+1)=" "NEXT J 

885 I-I4!:IF ICTP THEN 798 

18 POKE 72,8:1F FL THEN A$-TSUP41, TF- 
t! 

815 IF OP=3 THEN LINE-LINEHI:IF LINE): 
PS-FF) THEN LINE=1:FOR I=1 TO FF:LPRIN 
T * "NEXT I:IF PL$-'Y* THEK GOSUB 872 
928 SD=LR+(D=9)FIND:(B=2F TABH (B2) E — 
LL-LEN(A6:)/2:1F S?)4@ THEN SP-48 
3g IF QP-Z THEN LPRINT SP$(1,SP);Ae 


849 IF 125 THEN 7 SP$(1,SP);A$ 
945 POKE 55279,8 


059 IF FL THEN ? re END OF P 


RESENT TEXT.*";? "Q 
T9 CONTINUE. * 

855 IF FL THEN IF PEEK(53279) ()6 THEN 
855 

856 IF FL THEN 588 

868 P-TP:GOTO 715 

878 POKE 53279,8:? "PAPER QUT : START 
WHEN READY" 

875 IF PEEK(53279)=6 THEN GRAPHICS 3:P 
OKE 712,148: RETURN 

888 60T0 875 

988 PK-PEEXI(287):IF PK-1 THEN POKE 297 
| 8:60TO 938 

918 IF PK-8 AND P(LENIT$)-279 THEN POK 
E 287,1 

938 A=USR(1536, ADR(T$) +P-241, SCR) "FOR 
D-1 TO 58:NEXT D:RETURN 

geg ? "ERROR ';PEEK(195)i* AT ';2561PE 
EK 11971 +PEEK (186): GOSUB 5288:60T0 588 
1588 POKE 782,654 

1581 ? * ENTER FILE-NAME "57 INPUT 1$:0 
PEN #3,8,8, I$: N=INT(LEN(TS) /128)°? 15, 
N:IF N-8 THEN ST-8:60T0 1528 

1518 FOR 1=1 TO N:5T-12811:? #3;T$(ST- 
127,8T1: NEXT I 

1523 ? 13; T$15T41,LEN(TS)) :CLOSE 83:60 
TO 588 

` 2888 POKE 782,64 

2881 CLOSE #3:? " ENTER FILE-NAME ';:I 
MPUT IS:0PEN 83,4,8,IS: INPUT 13:97 IF N 
=§ THEN BEG--127:60T0 2828 

2818 GRAPHICS 3:POKE 712,148:FO0R I=1 T 
Ü N:8E6:12831-127: INPUT 83,A$:? A$;:T$ 
(BEG) -AS:NEXT I 

2828 INPUT #3, AS: T$ (DEG 128) -AS: CLOSE 
83:POKE 1536,184:COT0 588 

3888 LPSUL)-CHRSUS) :LPS1188) ZLPSCL) LP 
$12)-LP$:L$-'*:TRAP 3819:RESTORE 4828; 
POKE 712,148:POKE 752,1:? CHR$(123) 
3885 FOR I=1 TO 188:READ CS:LPS(I}=CHR 
S(LEN(CS))SLS{LEN(LS) £1) 2C S: NEXT I 
3818 LTOP-I-1:PK-PEEK(195):IF PKOS TH 
EN POP 

3812 TRAP 958:IF PKOS AND PKO 6 THEN 
953 

3815 SOSUB 4888:60T0 588 

3828 DATA abundant,bred from,common,di 
stributed,exceedingly,fairly,usually,s 
carce, infrequent,one only 

3825 DATA (confirmation required), loca 
lly,sost years, not, occasional ly, pupae, 
quite,rare,spmetimes,at light 

3838 DATA uncommon,very,widely,most re 
cent record, larvae, (dubious record) 


PRESS START 


4868 RESTORE 3828:FOR I=! TO 25:READ C 
Sr DS(LEN(DS) +1) ZCHRS(LEN (D$) +LEN(CS) +2 
):D$(LEN(DS) 41) CS: NEXT. 17 RETURN 

4828 DATA Warburton’s Wood, Whitegate V 
ay,Pettypool Wood, Winstord, Delamere Fo 
rest, Winsford (A54) — 

4821 DATA Hogshead Wood, Little Budwort 
h Common,Lea Green, Vale Royal Cut (Win 
sord) Christchurch (Dorset) 

4922 DATA New Forest (South Hampshire) 
„Bournemouth (Dorset), Sherborne (Dorse 
t),Beauxont (near Windsor) 

4823 DATA Newchurch Common,Rossett icl 
wyd),Runcorn,Forsby (Lancs.),Kennel Vo 
ods, Darnall Woods, Congleton 

4824 DATA Rookery Pool, Dutton, Dungenes 


s (Kent),Crewe,Cat’s Clough,Moreton (U 


irral), Hawkstone (Salop.) 

4925 DATA Marford (Clwyd) 

4825 DATA Wharton Heath,Whixall Moss ! 

Salop.),Alderley Edge,Portsiade (Susse 

x),Streatley (Berks.) 

4827 DATA Bromley (Kent) ,Sherrat’s Rou 

gh, Dutton Hollows, Arthog (Gwynedd) ,Spi 

tal Dam (Wirral), Weaverham 

4828 DATA Risley Moss, Widnes, Solihull 
(Warwicks.) 

5889 POKE 559,9:1F LEN(TS)-SIZ THEN 50 

SUB 5218:? "OUT OF SPACE':60T0 538 

5884 XT=LEN(T$)IT$(XT+1)=s ":TSUSIZ)-* 
2 T$OT42) 21$ UT 0 

58g5 J-SIZ*1:FOR I-XT TO 1 STEP -1:J-J 

-1:1$07,J) 27501, I): NEXT. I: Iz1:ERR-$ 

5813 A-ASC(TStI,)):IF A127 THEN 5835 

5815 T$(1,1)=T$(J,J):I=I+1 

5828 J=J+1:IF J<=SIZ THEN 5818 

5825 IF PEEK(559)-8 THEN GOSUB 5218 

5825 IF ERR)Ø THEN ? ERR;" ERRORS IN R 

EPLACEMENT CODES':605UB 5288 

58:38 T$(1)2**:2 CHR$(253):60TO 588 

58:5 IF (A?158 AND AC176) OR (A)185 AN 

D А‹193) OR (A)218 AND A(224) THEN T$( 
I,I) -CHR$(A-128) : I2141:60T0 9828 

5837 IF A)175 AND AC186 THEN 5188 

5848 IF (A)192 AND A(219) OR (42224 AN 

D AC251) THEN 5858 

5845 ERR=ERR+1:SOTO 5815 

5859 LC232:!F A)223 THEN A-A-LC:LC-8 

£855 K-1:FOR A=A-192 TO 1 STEP -1:1=К: 

X-ASCIDSQUC K) ) : NEXT A 

5848 C$-DS(LH1,K-1): IF LEN(CS) 4D7J TH 

EN GOSUB 5218:2 "OUT OF SPACE':GOSUB 5 
288:60T0 5878 

5962 IF ASCICSUL,1))497. THEN LC-8 

5855 C$11, 1) -CHRS(ASCCCS UL, 1) ) -LCY: TSE 
1, I#LEN(CS) -1) 2$: I=I+LEN(C$) : G0TO 982 

$ 


12 


5878 FOR J=J TO S12:T$(1, 112750, J) : I7 


IMNEXT J:60T0 5825 

5188 CS-'*:FOR K-8 TO 2:IF ASCITSUISK, 
J4K1)176 OR ASCITS(J+K,J+K)))185 THEN 
POP :G0TO 5118 

5185 CSILENICS) 1) -CHRSLASCITSUISK, J+K 
)1-128) NEXT K 

511g TRAP S115:LOC-VALICS) 1P LOC)=1 A 
ND LOCC-LTOP THEN 5128 

5115 TRAP 958:60T0 5845 

5128 TRAP 958:L-8:FOR D=1 TO LOC:K-LH 
: L-K&ASCCLPS (D, D) ) -1: NEXT. D 

5125 CS-LS(K,L): IF LEN(CS) 41)-J THEN 6 
OSUB 5218:2 "OUT OF SPACE':G0SUB 5125: 
GOTO 5875 

5138 J=J-L+LEN(STRS (LOC) ):TS(1, I+LEN(C 
$) -1)-CS: I-I4LEN(CS) :60T0 5828 

S288 ? "PRESS RETURN TO CONTINUE": INPU 
T IS:RETURN 

5218 POKE 559,32:GRAPHICS 8:POKE 712,1 
48: RETURM 


FLASH! ! 

Atari has sent us a 
new Atari S8gxL to 
test and review! It 
is a very nice 
computer with вак 
RAM, built in BASIC, 
and many new nifty 
features. Full 
review next issue, 
but would make an 
excellent Christmas 
Gift. The Atari 
User Support Team is 
also questioning 
user groups on what 
kinds of things they 
would like to see in 
the expansion box. 











TINY TEXT MARK II 


by BILL HARDWICK 
(reprinted from Page 6, a user group ‘zine in England). 

| am highly impressed with the performance of TINY TEXT by Stan 
Ockers and Jim Carr of ACE. In itself it more than justified the price of 
a year’s subscription for me! 

After | had corrected my typing errors and got it working (for those 
still struggling, YES! it does work as printed), | found a few rough 
edges and a lack of one facility which would save me considerable 
time at the typewriter keyboard. In case these may be of more general 
interest | have developed an enhanced version of this extremely 
practical utility, which is listed below. 

' THE CHANGES MADE 

A number of relatively trivial changes have been made to ease 
operation : 

1. A couple of the screen prompts were not quite as helpful as they 
might have been; hopefully these are now a little clearer. 

2. A few minor improvements to the screen presentation have been 
made - eg. the background colour has been extended into the border to 
give a less cramped feel to the screen when in EDIT or DISPLAY 
modes; the screen cursor has been suppressed where unnecessary; 
etc. 

3. Changing paper on my printer when using single-sheet 
stationery was a bit of a nuisance owing to the lack of a paper-low flag. 
There is now an option to get an automatic pause at end of page 
(however reached) to change paper and restart is screen-prompted. 

Which leaves us with the non-trivial extension : 

4. My main recreational interest is entomology. This entails the 
production of records of species encountered for my own interest and 
that of various organizations. A characteristic of these lists is that a 
number of descriptive words and phrases tend to occur very 
frequently, and the same locality name crops up over and over again. 

What | needed therefore was a simple short code for each of these 
items, which TINY TEXT would then "translate" to the appropriate 
representation automatically. This has now been provided in two 
forms by the REPLACE option described below. 

TAILORING THE PROGRAM TO YOUR OWN REQUIREMENTS 

As listed the program contains replacement codes tailored to my 
needs. Unless you happen to be interested in wild-life recording and 
resident in Cheshire this is unlikely to be of much benefit to you! 
Fortunately it is very easy to alter the program to give your own 
bespoke version which you can then save for future use. 

Remember the caution and either type CLR or temporarily alter the 
DIM of T$ to say FRE(0)-500 and reinstate it after you have done your 
other changes. If you forget to do this you will probably get ERROR 2 
when editing the program. A further note of caution to those of you 
who may already have keyed up the original program — the machine 
code routines at lines 40-90 have also been changed, so check these 
carefully; you'll get an interesting but decidedly unhelpful effect when 
using the replacement codes if you don't make these changes! 

There are two types of replacement codes; the details on their use 
is given below. To change them you must follow these simple rules : 

Codes starting at line 3020: there must be exactly 26 replacement 
strings here and the total length of all these string literals must not 
exceed (255-26) = 229 characters. Otherwise change them to whatever 
you wish. 

Codes starting at line 4020: The total number of replacement 
strings given here must not exceed the DIMENSION of LP$. Also the 
total length of these strings must not exceed the DIMENSION of L$. 
As coded the program allows for 100 replacement codes whose total 
length should not exceed 1500 characters; this allows quite a bit of 
“slack” for expansion later without redimensioning. If you wish to vary 
these limits, change line 13 appropriately — the rest of the program 
will take care of itself. Note that there is an absolute limit of 999 codes 
of this type in-built into the program logic in line 5100, though this too 
could easily be changed by altering the FOR loop to FOR K = 0 TO 3. 

As a guide, the program as written gives a text buffer of 25 Kbytes 
on a 48K machine without DOS. 

OPERATING INSTRUCTIONS 

The control characters during EDIT mode are repeated here; they 
all require simultaneous use of the CTRL key plus a mnemonic letter: 

= Throw to head of new page 

E = End current line and start a new one 

| = Start a new line indented 

T = Start a new line at the TAB setting 

S = Skip one blank line 

C = New line with text centred in the line. 

EDIT MODE ADDITIONAL INSTRUCTIONS 

All the work you have to do for automatic replacement of the code 
values is done in EDIT mode. Both types of code are identified to the 
program in the same way, by typing the code in inverse video mode 


(ATARI key). The two types of code can be mixed freely, and there is 


no need to come out of inverse video simply to put spaces, 
punctuation or'special characters'(ie. !"#$¢&’ @() x t-=;:+ *,./]]?) 
between successive replacement codes. All such characters the 
program encounters in their inverse video form will simply be 
translated to their normal form by the REPLACE option. This has been 
included to further reduce the number of key-strokes necessary to 
achieve the desired result. Note however that any of the control 
characters defined above must be presented in normal video form. 
1. ALPHABETIC CODES. The 26 DATA items starting at line 3020 
are each in turn associated with successive letters of the alphabet. 
This gives you an opportunity to select easily remembered 
mnemonics for many items, which are quickly learned and therefor 
soon add to the typing speed. 
As a further option the code letter may be entered in either lower or 


. upper case inverse video. If it is in upper case and the replacement 


value starts with a letter, then the first letter of the first word of the 
replacement string will also appear in upper case; this is for 
convenient incorporation of replacement codes at the start of a 
sentence. 

2. NUMERIC REPLACEMENT CODES. The values starting at line 
4020 are each in turn associated with a successive number starting at 
1 in inverse video. All the same remarks apply to these as to 
alphabetic codes with two exceptions : 

(a) There is no corresponding "upper case" feature; 

(b) consecutive numeric replacement codes must be separated 
from each other by some other character. Failing this the program will 
assume a triplet of three inverse video numeric characters is a single 
replacement code and act accordingly. 

THE REPLACE OPTION. The codes are not translated as entered in 
EDIT mode; to achieve this you leave EDIT and select REPLACE mode 
(by pressing the OPTION key as with all other options). A WORD OF 
WARNING: don't panic! Having pressed the START key unless you're 
into transcendental meditation this might be a good time to walk the 
dog, mow the lawn or decorate the spare bedroom! The screen will 
have turned uniformly blue as no doubt will your language as you 
become increasingly fearful for the fate of that text you so pains- 
takingly typed in for the last hour. Be patient with it; there's a lot of 
work going on if your text is of any substantial length and it's all 
happening in BASIC. | can assure you it does work (I used it yesterday 
to create a document which took nearly an hour and a half to print 
after all the replacement etc. was done), and at least you're not tied to 
the keyboard doing repetitive typing while all this is going on — or 
making numerous typing errors in the process. To release you from 
your vigil at the blank TV, you will be given an attention-seeking "bell" 
as well as a screen prompt when all is ready. 

Well that's it— everything else you need to know is covered by 
screen prompts, so more power to your typing finger! 


GRAPHICS CHARACTERS 


on the Epson MX80 with Graphtrax 

Have you ever wanted to print out a program with inverse and 
graphics characters, or machine language programs which cause your 
printer to go crazy? Well, this program can help. It takes a disk file and, 
using 480 dots per line Bit-image graphics mode on an Epson MX80, 
prints any of the Atari's inverse and graphic characters along with 
normal text. The file must not be a BOOT file. BASIC and ASSEMBLY 
programs must be LISTed to disk. In Binary LOAD files, the 6 header 
and tail bytes will be printed along with the program. 

After typing in the program, SAVE it and then RUN. A disk directory 
comes up and the program asks for a filename and tells you the buffer 
space, in bytes and sectors. Before entering a filename, be sure to turn 
on the interface and MX-80. Enter a file name and RETURN. Then the 
program asks if you want a modified SPACE character. This is only 
useful in long machine language routines. It changes the SPACE 
character (CHR$(32)) to an empty box on the printout. This makes it 
easier to count spaces. 

After you enter Yes or No, the program asks if you want to see on 
the screen what the printer prints. If you enter No, the program turns 
off the screen DMA to get some extra speed. Then the program lets 
you enter a printout title. Next you are asked if you want to use a 
custom character set. If yes, enter the decimal Hi byte of the set and 
RETURN. Finally, the program enters the file into its buffer from 32768 
to 40959 (the right cartridge slot). Don't worry, 400 owners, you still 
have the right cartridge slot RAM! After the load is complete, the 
program begins to print immediately. That's it! 

AS you will notice, this program is pretty slow and therefore is a 
perfect candidate for compiling. If anyone out there has a compiler 
and can successfully compile this program, | will be eternally grateful 
if | can get a copy of the compiled version. | will send a disk along with 
a SASE. 

— Greg Menke 
22500 Old Hundred Rd. 
Barnesville, MD 20838 


Power Transient Filter 


(reprinted from the newsletter of the Atari Computer Club of 
Lawrence, KS) 


This circuit is a powerline transient suppressor, a radio frequency 
interference (RFI) filter, and a power disconnect all in one box. It is 
based on a circuit in the Sept. 1983 issue of "Radio Electronics" 
magazine. Although the box can be built from the accompanying 
diagram, | recommend buying the magazine or looking it up in the 
library for other hints in the use and construction of the circuit. 

HEI can come from many sources. It can cause glitches in 
memory, strange lines on the screen, or can even cause an 
unprotected computer (very rarely an Atari!) to reboot, wiping out the 
program in memory. The fix is an RFI/EMI filter sold by Radio Shack 
for $12. 

Transients can be even more deadly. Lightning strikes or the 
starting of induction motors on the same power circuit can cause 
momentary voltages as high as 1000 volts. A nifty device called a 
metal oxide varistor will short out any voltages over 180 volts, causing 
a fuse to blow. And all of this happens in 35 nsecs (35 billionths of a 
second). 

The third gremlin we’re after is the power surge. After a power 
failure, the power company will try to maintain service. Often the line 
may surge several times before failing completely, or it may “hold” 
until power is restored. If an unattended disk drive were to start after a 
failure, having been left on for a BBS or other reason, it would most 
certainly eat whatever disk is inside. The remedy: a latching power 
relay, which disconnects the computer from the power line when the 
power fails. 

Parts for this filter are easily available from Radio Shack for about 
$40. 

The circuit itself varies from the one published in “Radio 
Electronics" in several respects: lve added an optional normally 
closed switch to turn the relay off. | wired the relay to break BOTH 
sides of the AC line (not just one), and wired the relay coil to release if 
the fuse blows. 

Neatness in the wiring doesn't count. Sturdiness of the wiring 
does. Use #14 AWG solid wire to connect all wiring of the AC to the 
relay contacts, and to the.receptacle. This can be acquired by 
purchasing about 2 feet of 4414-2 Romex cable, and stripping off the 
outside insulation. The remainder of the wiring can be done with #18 
or 420 stranded wire. All connections must be tied down and soldered 
well. The power line for any computer must be 100* free of 
interruptions. Leave no connections hanging in space, even if taped. 
Beware that small 25-watt soldering irons will cool if too many #14 
wire connections are soldered too soon. Be prepared to wait a few 
minutes between each solder joint to let the iron heat back up, or use 
a bigger iron. Cold solder joints will cause more problems than they 
solve. And use only rosin core solder, not acid core or soldering paste. 

Mount the parts on the aluminum panel of a 7-5/8 x 2-3/8 x 4-5/16 
inch plastic utility box. This panel may be too thin for your taste: Feel 
free to make your own panel from heavier aluminum. 

The START switch is indicated as a DPST momentary push button, 
which breaks both sides of the AC line to the relay. Other sources 
carry such a switch, but Radio Shack does not. Two options are 
available to those who do not have access to suppliers other than 
Radio Shack: First, RS does offer a DPDT center-off, momentary 
toggle switch (275-637). This will work fine if you don't mind the style 
of switch. The other option is to use TWO push buttons, BOTH of 
which must be pushed to latch the relay. This could provide just a little 
more security for your system. The START and STOP push buttons 
can be mounted in the box, or mounted elsewhere to remotely operate 
the system. Be aware, however, they are carrying 110VAC and the 
design of the wiring and switching should reflect this fact. Play it safe. 

The article suggests mounting the relay socket on an aluminum 
bracket, mounted on the inside of the box. | mounted mine with the 
Socket going through the box, and the relay outside. To protect your 
system from prying fingers, shut it off, and take the relay with you. It 
can't be started. 

Transients which will cause the MOV to short the power will blow 
the fuse and disconnect the relay. Therefore, use a 10 or 12 amp 3AG 


fuse — but NOT a slo-blow type. Don't eliminate the fuse. It is 
essential. 
The circuit will handle 10 amps — so count the power 


requirements of all portions of your computer. The original design had 
a single AC outlet socket: | used a standard duplex wall outlet, so the 
ATARI disk drive power box can be connected directly. 

That should do it. Get the article and read it carefully. Then get 
busy and build the box. It is certainly worth the $40 and the Saturday 
afternoon to build it, and it can save your computer. 

— Max Mayse 


WHITE Wu TÉ 


ТАН 





APE-FACE 


A Printer Interface 

It's no news to any of you that printer interfaces have been hard to 
find, and the one readily available interface requires sc "3 ROM 
changes some of us have been a little reluctant to make. 

Well, now there are two new interfaces for you to choose from. 
One is a printer interface and modem combination which is made by 
Microperipheral Corporation. The second is the Ape-Face parallel 
printer interface | have been using for the last month. 

The Ape-Face is small (only 4.25x3.25x1.5 inches, not including 
cables), so it takes up very little work space. All cables are included, 
and it is very easy to install. All you have to do is plug it into the I/O 
port of the computer or disk drive, then plug the other end into the 
printer and presto it's done. It is a dedicated printer interface so there 
are no switches to turn on when you need to use it. All you have to do 
is turn on the printer. 

The only problem I’ve had in the last month is with the !/O plug. It 
doesn't fit very tight and it can loosen enough to break the connection. 
This means the computer will forget you have a printer. Or it may just 
print garbage. 

Overall, this seems to be a very good device if all you need is a 
printer interface. 

The Ape-Face is manufactured by Digital Devices Corp., 151 Sixth 
St., Suite 127 O'Keefe Bldg., Atlanta, GA 30313. — Ph. (404) 872-4430. 
Suggested retail $89.50. 

—Bob Browning 


TIDBITS ~ue 


i Canada 
More General Tips 


Welcome to the second batch of tidbits. In this edition I’ll give some 
ideas for speeding program entry (mostly by reducing typing). 

First of all, always use abbreviations where possible. For example, | 
find that | can type “SE.” and “SO.” a lot faster than SETCOLOR and 
SOUND. Look in your BASIC reference manual and memorize at least 
some of the most common short-forms — the time it takes will be 
easily made up the next time you enter a program. You don’t realize 
how good this feature is until you have to work on some machine 
which doesn’t have it — then you more easily overlook some of ATARI 
BASIC’s shortcomings. 

If you are ever entering in a program and you come across a series 
of very similar lines, by all means make use of the screen editor. All 
you need to do is type in the first line of the series, then use the arrow 
keys to move up, change the line number and whatever else, and hit 
the return key. | even like to set tabs on the areas that need to be 
changed. This is a fabulous way to save time. 

Did you know that all of these following lines mean the same thing 
to ATARI BASIC? 


18 IF AOS THEN GOTO 48 
18 IF ^O8 THEN 48 
18 IF A THEN 49 
You can always get away without putting GOTO after THEN if the 
jump is to a constant (in this case 40), but never if the jump is to a 


variable. The statement after THEN is always executed if the expres- 
sion before it is not equal to 0. Logic operators like GO 
Ké 


, and = all evaluate to 1 if the expression is true, and 0 if it is false. If 


you think about it, you will surely see why we can shorten the +c AT. 


to simply IF A. If you’re still not sure, try typing the following line in 
the immediate mode. 


R=4: 7A, 824, DAT 
Try some more like that one if you want to. 


Reading the Keyboard 


This month I'll cover a few more PEEKs and POKEs and relate some 
methods of getting input from the computer in a program. 

If you have an application where it might be nice to have the cursor 
disappear, you can just POKE location 752 with a 1. To turn the cursor 
back on, simply POKE a 0 into 752. 

In many programs | have written, | have found it necessary to read 
the keyboard in such a way that as soon as a key is pressed, the pro- 
gram will take action. If a simple INPUT statement is used, the com- 
puter will wait for the return key to be pressed before it continues. 
There are two ways of doing this | know of. The first is a little more 
complicated than the second, and has both advantages and disadvan- 
tages. This method involves first OPENing an input/output control 
block for input from the keyboard. Then one simply uses a GET# state- 
ment to read the keyboard. This example program illustrates this 
technique: 

10 OPEN #1,4,0,“K:”:REM open the keyboard for input 

20 GET #1,A:REM the computer will put the ASC value of the key 
pressed into the variable A. Note that it will not print anything on the 
screen. 

30 PRINT CHR$(A);:REM print the character on the screen 

40 GOTO 20:REM loop back for more 

The advantage of this method is that it gives us the ASC value of the 
keypress, so that we don't need to do any translating. The disadvan- 
tage is that the computer will stop and wait for a keypress, which may 
not be any good in some situations. 

The other method requires the use of the internal code of keypress 
location (764). First you find out the internal code of the key you want 
the program to react to, then you simply test the value in location 764 
to see if it is the one or ones that you want. To find the internal code, 
use this simple immediate-mode program: 

FOR A=0 TO 1 STEP 0:? PEEK(764):NEXT A 
Now push the keys you want to use, and record the values the com- 
puter prints. Then in your program you just need to PEEK 764, com- 
pare it to the value or values you wanted you wanted, and branch ac- 
cordingly. With this method the computer will never stop executing 
the program to wait for the keypress. 


Reading the console keys (START, SELECT, and OPTION) is similar 
to the second method of reading the keyboard. In fact, one does the 
same thing exactly except the location used is 53279. Incidently, to 
clear location 764, POKE it with a 255, and to clear location 53279, 
POKE it with an 8. To make the little speaker inside the computer 
click, POKE 53279 with 7. 

Next time | promise to deal with disk drive tricks. 

— Dale Lutz 
Canada 


Meetings 


Now at the South Eugene 
High School Cafetaria 


Weds Dec 14 

Features Mr Television 2 How to 
Maintain your Atari! 

Also Demos of the New 

Atari 800XL, 

Movie Maker and Morell 


Мез Meeting Jan 11 
Same Place- No Newsletter 
Both at 7-80 PM 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, ` 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


glift & Design Services 


Ime. 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books О 
Volume 1 are bound issues of the ACE Newsletter from the first issue, 
Oct 80 to June of 1982 


Volume 2 covers July 1982 to June 1983 


Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 
SortFinder 1.2 


Composite index of Atari related articles from 5 popular computer 
periodicals from Apr ‘81 to June ‘83, including ACE. Only $6 for ACE 


member from: 


Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 


ë Atari 
JL Computer 
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3662 Vine Maple Dr Eugene OR 97405 
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Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


* *President— 
503-689-5355 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 / 
503-686-1490 
Secretary— Charles Andrews, POB 1613, Eugene, Or 974401613 
503-747-9892 
Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 
(503)689-7106. 
Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 
503-344-6193 

Jim Bumpas, 
503-484-9925 
E.R.A.C.E. (Education SIG Editor)— Ali Erickson, 295 Foxtail Dr., 
Eugene, Or 97405 /503-687-1133 
E.R.A.C.E. Corresponding Secretary— Robert Browning, 90 W. Myoak, 
Eugene, OR 97404 (503)689-1513. 


Kirt Stockwell, 4325 Sean , Eugene, OR 97402 


4405 Dillard Rd. Eugene, Or 97405 


Send 27 cents in stamps or coin (50c overseas) to the Ness’ for the 
new, updated ACE Library List —new in Oct!! 


Bulletin Board (503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2 double density 
Percom disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov ‘82 issue 
for complete details. 


